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Cit boekje is een bundelinc ‘an -e eerste jaargang van 

Bcarn Nieuws, oestijds nog geheel verzorgd daar de oprichters 
van de Acorn Computerclub: de heer GeH. Borghaerts en 

mevrouw Îì, Gruyters. 

Fet deze uitgave wordt beoogd deze eerste jaargang, waarin 
veel wetenswaardigs is opgenomen, VOOr later toegetreden leden 
Opnieuw beschikbaar te maken, 


Deze uitgave is tot stand gekomen door een lofwaardig initiatief 
vanuit de Acorn Csmputerclub Limburg. 

Ket name is dank verschuldigd aan mevrouw F, Ernst, die de 
gehele redactie, lay-out en het type-werk verzorgde. 


Bij dit boekje behoort een cassette met programma's, welke 
verkrijgbaar is via de regionale bandjesarchieven. 

Hiernaar wordt verwezen door, indien van toepassing, de naam 

van het betreffende programma bij de hoofdstuk=titel te vermelden, 


Arna Millenaar, 
voorzitter Federatie Acorn 
Computerclubs Nederland/Belgie, 
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Toelichting: 
Abt 
NTELETYPEN 


Hummer van Acorn Nieuws waaruit afkomstige. 
Waar van de File op het verzamelbandje van 
listings uit Acorn Nieuws 1982, 


1-2-4 MHz. 


KELEKIE 

Dit artikel gaat over hoe men met eenvoudige midaelen de Acorn Soft- en 
Hardware matig kan omschakelen tussen een kloksnelheid van 1Hz en 24H2. 
In de eerste experimentele fase monteer je een wisselschakelaar, zodat 
je al even kunt merken wat het verschil is in verwerkings snelneid. 
Hierdoor word Mlanze Lt warm voor beter werk wat hierna volgt, maar waar 
wel een paar uurtjes knutselen voor nodig is. 
Het speelt zich voornamelijk af rond IU44 de 7415393. Dit IC deelt net 
4 Miz kloksignaal zodanig dat in de originele uitvoering de 6502 (PL een 
1 MHz signaal krijgt. 
Wil je het met een wisselschakelaar doen (Ì2g-1) dan ie oît wel leuk om 
even te proberen jaar blijvend zal net geen succes zijn en wel om twee 
redenen: a)Na elke omschakeling is er een SHEAR nodig. Dit komt door net 
denderen en het niet synchroon met de klokpuls schakelen, toevals tref- 
fers uitgezonderd natuurlijk. 

b)Het is niet mogelijk om vanuit het programma de snelheid te 
wijzigen (soft schakelen). 
De volgende eenvoudige schakeling (fig.2) voldoet al beter en neeft ae 
twee voorgaande nadelen niet, De schakeling heeft slechts 1 IC nodig en 
wel de 7409, Toch is ook hier een nadeel en wel dit: na het a-nzetten ot 
na een BREAK weet je niet of je in de 1 Mdz- of 2 La mode bent, Lit is 
te kontrolleren dim.v. "CTRL G* (vergeet niet hierna op e&C te druknen). 
Indien de taan 2 maal zo haag, 1s als normaal dan is het witeraard de 2 
MHz monde, Deze schakeling maakt gebruik var een uitgangspoort van IC#5. 
Door de selectlijn aan de PC-3 poort van de b255 PIA te hangen is net 
mogelijk om vanaf het toetsenbord of vanuit een programma detiev. de 
volgende instructies de snelheid te veranderen zonder deze door een 
BREAK te moeten resetten. ?4B002=#EF voor de 2 HHz mode 

YÉBOO2-#L7 voor de 4 MHz mode 

Het gebruik van deze poort PC-3 behoeft nos wel nader komventaar raar 
daarover later, 
Een leuk demonstratie programma geeft heel duideli, 
snelheid aan: DO P,$7;?/BOC2=ALF; P. 47; IAROUE=KLT Lou 
Het resultaat zal een wisselende toontoogte zijn. 
Het navolgende schema (figs.}) kent ceen protlemen, Zas else HuzAk Komt 
hij terug is de 9 Iiz mode, Indien hij terug kont in de P uHz mode oon 
moet je de draadjes bij pin 11 en 13 van 1C44 verwisselen. Hiervoor zi 
2 IC's nodig, kosten ca, f 3,50 en wel de 74u (&XOL) en een 747% (eer 
JK flip-flop). Doordat er pas geschakeld wordt op de flank van de klok 
ken er geen fase fout worden gemaakt, ook ontstaan er geen reset probie- 
men meer, Om deze schakeling te gebruiken heb je weer een poort noaig 
van 8255 PIA zoals dat ook bij de vorige schakeling gebeurde. 
Om hierop terug te komen, ík ben mij bewust van het feit dat ik hier met 
mijn vingers in de standarisatie van de computer zit maar ix zag hier 
geen andere mogelijkheid of men moet een 2e 5255 monteren, „aar dit zou 
voor veel mensen een te grote stap zijn en nen ervan weernouden omdit 
alles eens te praberen, 
Als poort PC-3 (pin 17 van 1:25) gebruikt wordt voor andere doeleinden 
dan dje welke Acorn-computers hem heeft toebedeeld (net omrcrakelen van 
achterkleuren en contrast) dan moet LK 5 op de prânt (conponentenzijde) 
worden doorgekrast. Om een onrustig becìd te vocrkoren moet Je gin 39 
van 1C31 (6847) met een 'pull-up' weerstand van Ì Kb aan de +5V hangen. 
Wanneer je dit doet wordt het contrast van de computer ook sterker, Ais 
dat niet gewenst is moet de pin 39 a-M-v- IK 6 aan de massa legen. 
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van het video-seheuger is niet goed, In de mode 2 t/m wil net bij plotten 
vaak een rom: zeven. Mervoor zijn 2 oplossingen: 

2) De IC'e ve n door snetiere types en eventueel meten of de IC's 
wel de broodnodige 5 valt krijgen 

Ì voor elke PLOT,DRAN..…. instructie de sneïheid terug brengen naar | 

Ee en erna êirect weer omhoog naar @ Wiz, ken voorbeeld hiervan: 
verlnumer  PfEM2fETG;DEAAX, Ys fNOD2efEN of elke andere instructie 

Tij dit alles is er wel een maar! 

Te temperatuur loopt op ern de stroom consumtie neemt toe. Dat ozidn maar 
vleininheden zolang je eror let dat de IC's nirt boven de 100° koren. 
Insien je geen geforceerde koelin:, cevruikt moet je de computer zewoon 
niet onnodig leng in de 2 kiz mode laten staan. Wat die koeling betreft, 
Hier een SUE je: Bij de XWANPUL HALLEN wordt een axiaale kooi ventila- 
tor verkocht welke werkt on 12 V, waar Ook wel op 5 V (eventueel de ongf- 
stabiliseerde spannitig gebruiken). Deze ventilator hast maar f 6 „Sv en 

s op de zijkant van de kast van de Atom te monteren. Hiervoor moet je 
an wel een linzwersis gat maken van ca. 10em pij 2er, en aan de andere 
„aut een rooster of een paar gettjes. 











































Arno willenaar. 


De 1.V. afs VIDEO-MONITOR 

ZEE 
Een onderwerp dat brede belangsteliing geniet, is het gebruik van de TW 
als MONITOR voor de computer. Dit betekent, dat men vanaf pen 9 en 10 
van PL5, van de Acorn, met het computersignaal ‘eruit gaat! ( de zgn. 
Video-uitgang) en vlak voor de heeldversterker/synchroniaator de TV 'in- 
gaat', Alleen de erg dure T's hebben niervoor vanaf de fabriek aange- 
brachte aansluitingen, Het schijnt ook te kunnen via de aansluiting 
‘Video-Recorder' van sommige TV's. Uw Acorn kan probleemloos op de WX 
Philips aangesloten worden (wanneer deze IV een 12 volt voeding-aanslui- 
ting heeft). De benodigde ‘monitor-ingang' kunt w dan relatief eenvou- 
dig zelf aanbrengen, ken dergelijke aansluiting neeft grote voordelen 
daor een veel helderder, fijner gedefinieerd en stabieier beeld, noe u 
Benoemde sansluitingen kunt aanbrengen, staat bescnreven in kadio-buiie- 
tin van 7/1981, Kunt u daar niet aankomen, dan informeren bij het druk- 
werkarchief, Weet u niet 100% zeker of uw TX geschikt is, informeer aan 
bij uw regio-hardware-man, 


VIDEG CONVERSION EER 
Using a portable television with the Atom video output. _ 

When the UHF output is used with most portable tv's the definition will 
be very poor due to the narrow band-width of the RF and IF stages much 
less than the tv is capable of, This wodification was made to uy schDIG 
portable TV with a great impruvement to tze definition but without af- 
fecting the picture auality wnen watching CHISSKQAUS. 

The circuit has the advantage that the print on the PCB is not cut or 
altered, the extra components are just soldered to the underside of the 
PCB.A circuit diagram of the tv is a must. 

With the Atom disconnected from the PV tne AR117 in the extra circuit 
is reversed biased, so the screened lead has no effect on the perforwence 
of the circuit due to the extra capacitance when used as a television, 
With the Atom connected to'the TV the AF117 is operatea as an emmiter 
follower circuit. Since the output voltage from the Atom is 1,5V and 
the voltage on the cathode of tne video demodulator is 3V the diode will 
be reversed biased, so cutting out the noise fror the CV E£ stages. It 
is Fortunate that the video output voltaze is similar to the out put 
from the demadulator and the polarity of the video sisnal from the Atom 
ìs correct, The AF117 transistor ìs not critical, any PNF Kf type would 
be OK, Keep all unscreened leads as short as possible, 

IMPORTANT NOTE: This modification should not be atternpted on a non=iso= 
lated TV chassis. he power supply must use a mains transformer with 
secondary windings earthed, Schema op de valsende blz. 





De voeding. Er 
Bij.de voeding moeten er naar meer punten gekeken worden, Verschillende 
klachten worden door de voeding veroorzaakt, ten klacht is dat het VoU 
beeld na enige min. na het aanzetten van de computer in ongunstige, dan- 
wel pes in gunstige zin veranderd. De fabrikant antwoorde dat de klacnt 
is terug te voeren tot een veranderde voedingsspanning, en adviserrde 
om de verbindingsleiding in te korten, Op zich is dat duist, Het snoer 
is wat dun en bij een stroomsterkte van 15 Ampere bij een 'fulì house! 
aan RAls geeft een weerstand (in de verbindingsleiding) van bv. slechts 
bOhm reeds een spanningsval aan “e computer van C,1V. In eerste instan- 
tie vertoont dan de Modulator, dus het VDU kuren, Hovendien is de voe- 
Äingsstekker nit al te hest, us garelijk spanningsverlies, Len kan het 


snoer (verwisseld voor een beter) ook aan de + en - vastsolderen. 
ZU TVE 
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Het dender probleem. Er 
Het denderen is meestal een hardware probleem. De toetscontacten moeten 
goeë gesoldeerd zijn en de woeding moet goed zijn. 





Software matig: !#28FO=#032003A2 13 (inhoud #28F1) zorgt voor de 
1A2GF4-fFES44CFB vertragingstijd, zelf in te stel- 
1#O2DA=AFIGLLERO len.#f25FP1=0, dan vertraagt het 


program 4d sec, 


UITBREIDING van GEHEUGEN 


EER 
Een steeds wederkerende vraag betreft de mogelijkheden van geheugen uit- 
breiding van onze Acorn-Atom. Ken simpel antwoord hierop zou zijn, dat 
je met uitbreiding nét zover kunt gaan als je portemonnaie reikt en je 
voedingsapparaat trekken kan. Elke 6502 in elke machine heeft met z'n 
6-bit 64K van zichzelf, Hoe gebruikersvriendelijk de machine is, hoe 
meer daarvan aan ROM wordt opgegeten. De rest ìs RA; bij ons J2K. Hela- 
tief weinig RAM pleit dus geenszins tégen een computer! Aan vele compu- 
ters, zeker aan de onze, kun je extra blokken KAM of KOE hangen, wil je 
in totaal méér dan 64K, dan wordt het ‘dubbel parkeren'. Iemand heeft er 
bv. al 128K extra RAM aanhangen. Je kunt aan de Acorn ook weer een nieuwe 
6502 aanhangen en tot het oneindige multiplexen. komenteel kunnen uit- 
breidingen gaan in 'statische' RAN, zoals de 2114's die er al inzitten; 
in ‘dynamische! RAM's die heel wat goedkoperzijn mear extra 12V voeding 
vragen; in EPROMs voor het opslaan van steeds voorhanden routines en in 
zgn. pseude-RONs, die je kunt gebruiken als gewone HAlk,doch waarin de 
inhoud kan worden behouden door er met knoopcellen min, 2 voìt op te 
houden na uitschakelen van de computer. Geschikte typen hiervoor zijn 
voor ons de 6116 en 5416. 
Een vaak betere vraag dan ‘hoeveel kán eraan' is: ‘Hoeveel heeft u nodig?! 
Bij alie vragen om uitbreiding dienen we niet te vergeten, dat de grote 
meerderheid van Atom-hobbyisten aan de voornanden 2 blokken van Ssk al 
jaren genoeg hebben. Temeer daar wij met onze ?15 op een uniek menier in 
de machine kunnen rondspoken. liaar toen, een paer K extra HAK is wel zo 
plezierig. 
Kaar hoe? 
a) u koopt, of maakt, een geheugenkaart, bv, de clubversie. 
b) u begint vast met min. kosten de reds aanwezige geneugenruimte met 
een paar K extra RA bij te plakken (het lage geheugen met Ik tot de 
volle 6K, het hoge geheugen met 2K tot de volle Bk). 


Oplossing b) kunnen we nader uitwerken: 
tlaag' geheugen 


DIDO DDT DDL D DLA OIL: 


2500 2C00 3090 3400 3400 3000 40: 
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‘hoog' geheugen 
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5000 8400 8800 8COO JOO 8400 DOG ee 
Gearceerd Mp in vorst sunt nanwezig geheugen in HAMs 
Zwart Wy eenvoudig bij te plakken RAXs 


Gespikkeld fN- aan te vullen met bv, 6116's 
Er ontstaat dan een aaneengesloten geheugenblok van 30K waarvan 16K naar 
wens te gebruiken als RAM,ROM of EPROK, Bepaald niet onaantrekkelijk. 


Tot dusverre spraken we over 'bijplakken' van KAk's. Als u het op de 
simpelste, goedkoopste en toch degelijke manier wilt doen, gaat het let- 
terlijk om plakken. De toe te voegen 6 RAX's 2114 worden jau inderdaad 
gewoon op de rus van 6 reeds aanwezige KAM's 2114 geplakt, n.l, op de 
IC's 32,33,34,35 (hoog) en IC 10,11 (laag). 
In Engeland noemt men dit ‘Pig Packing', varkens stape- 
len, De pootjes van het bovenste varken zitten normaler- 
wijze reeds klemmend om de overeenkomstige pootjes van 
YS de onderbuurman en worden hieraan vastgesoldeerd. Of, 


als u dit griezelig vindt, vastgenlakt met bv. BISON ELECIRCK IL. 

it doet u met alle pootjes op één na, n.1. pootde nr.ö, d.i, de Chip 
Select, De poot} nr.à van de bovenvarkens soldeert u NIk{ aan de on- 
derbuurman maar buigt u iets naar buiten, 

r steekt nu IC 41Q en 11, ieder beladen met een 'pig' weer terug in de 
soekets. Die KAx's doen het dan weer alsof er niets gebeurd is. Nu ver- 
bindt u met een âraadje beide pootjes 8 van de bovenvarkens en verbindt 
dit verbindingsdraadje met pin 7 van IC 6. Daarmee is het lage geheugen 
klaar. 

Met IC 32 en 3j doet u hetzelfde, bij elk een 2114 erbovenop, alle poot- 
jes doorsolderen of lijmen met de onderste, op de pootjes b na, Na te= 
rugsteken van de IC's 32 en 33 verbinát u beide losse pootjes & van de 
twee bovenvarkens en verbindt dit verbindingsdraadje met pootje 1 van 
IC 30, 

Tenslotte naalt u IC 34 en 35 eruit, voorziet ze op precies dezelfde aa- 
nier van een bovenvarken. Na terugsteken van de IC's 34 en 359 verbinat 
u weer de beide pootjes & van de bovenvarkens en verbindt dit verbin- 
dingsdraadje met pootje 9 van IC 30. 

Hiermee is de operatie klar. U heeft nu twee geheugenblokken, n.l. een 
laag geheugenblok van de volle 6K (de tekstpointer blijft gewoon op #29) 
en een hoog geheugenblok van een valle ot. Alle zaken voor het selecte- 
ren van de bijgeplakte KAä's en de lees/schrijf leidingen zaten al op 
het board. U heeft ze nu gebruikt. Om niet dóór het board te hoeven bo 
ren kan men de verbindingsdraadjes naar IC 30 pin 7 resp. 9 rechtstreeks 
aan de boven uitstekende delen van de poten van dit IC solderen, Doe dit 
degelijk! CS lijnen mogen nooit los zitten! 








UITBREIDEN met EPROU 2732, EEER 
et de printsporen op het moederboard van de 
Acorn-Atom is de EPROK 2532 zonder meer com- 
patibel (uitwisselbaar). De pin-configuratie 
van de 2732 is anders en dient te worden 
aangepast axn net Atom-board, 

Vaelichting: De ADKESlijn A11 op het board 
gaat naar de voetpin 18 van alle 24-pins ICs. 
Bij de 2732 moet deze echter naar pin 21. De 
Chip-Select lijn op het board is pin 20 (T5) 
De 2732 heeft echter 2 aan/uit schakelaars, 





r, 
18 WES LUN 





nel. 18-TE (Chip-knable) en 29=0E (Output 5 A-LÜN 
Enable}. Beiáe zijn ‘aen! als ze LAAG zijn Eenvoudigste "ombouw! 
en beide zijn 'uit' als ze ZOOG zijn. Kunnen van EPRON 2732 naar 
dus dóórverbonden. socket van 1C24 via een 
ZET OP: Yan alle 24-pin IC's op ons board zijn tussenvoetje. Socket 20 
AILE pinnen (overeenkomstige) vast doorver- gaat dus naar bPROK 20 
bonden op één na, n.l. ge Chip-Select lijn. én 18, Socket 18 gaat 
beze lijn (20) komt per IC apart uit een naar EPROM 24, Pootjes 
Aecoder en is de enigste lijn, die uitmaakt 15 en 21 van de LPRON 
of een IC functioneert (als de lijn laag is) kort afknippen (of naar 
of uitgeschakeld (lijn hoog). buiten buigen.) 


We kunnen Gus, als we willen, IC's in IC-voet 

24 of bovenop de Floating Foint, als varkens stapelen, op voorwaarde, 

dat we de pinnen 20 uitbuicen,. 

Dit varkens-stapelen (Piz Packing) deden we al met de RA's 2114. Bij een 
24-pin IC moet nu de Chíip-Select aan pin 20/16, Het verschil is, dat we 
bij het RA-stapelen op het board DECODER-lijnen over hadden voor de CS 
Bij de 24-pin IC's echter niet. Om nu toch meerdere bruikbare EPROL's 

om beurten te kunnen zebruiken, kunnen we de Chip-Select-lijn naar de 











verschiilende c4-pìn IC's omSchakelb:ar Laken. ket Ben 2-5 Of 4 keur 
om-schakelaar of met zgn. dip-schwitches. 

Let echter terdege op 2 voorwaarden: l)als u dip-schwiches gebruikt mag 
u nooit twéé 24-pin IC's tegelijk aan de Cnip-Select-lijn schakelen en 
2)de chip-select ingang (bij de EPROM 2732 dus pin 18 aan 20) mogen bij 
niet gebruiken nooit loshangen mear moeten gedefinieerd naar Hoog. U 
doet dit het gemakkelijkst door alle 24-pin IC's te voorzien van zgn. 
PULL-UP weerstanden, d.i. een 5K6 weerstand van genoemde inzang naar 
pin 24 = 5Yolt. In gebruik trekt de Chip-gelect lijn deze ingang wel, 
ondanks de weerstand, naar Laag. In niet-aangesloten toestand vliegt de 
ingang echter door die weerstand naar #oog. U kunt daar kleine 1/5 watt 
weerstandjes voor nemen, 

U kunt natuurlijk cok afzien van solderen aan de IC's voor tussenvoet 
en weerstanden, door een net printje te maken en daar alle zaken via de 
bedrading in te verwerken. Dat printje kan dan in de kast, met de om- 
schakeling ‘naar buiten’ gevoerd. Of de hele IC24 socket met een flat- 
kabel ‘uitvoeren’ naar een Low Extraction Force-socket, waar u de Deno- 
digde Utility-EPROM's naar believen kunt omwisselen. 


EPROM 2732 in 1C24 voet. x 
Van ZERO in Bergschenhoek kwamen de gegevens voor een 2732 an socket 
IC24, Pootnummering van bovenaf gezien op cnip of voetje. Beginnen bij 
het ‘slotje! en linksdraaiend, Via 1 of gemakkelijker 2 tussenvoetjes 
op elkaar, moet: 

pin 20 van de socket naar pin 20 en 1e van de EPKOI 

pin 18 van de socket naar pin 21 van de KPKON 

pin 21 van de socket blijft vrij, afisoleren. 

Het adres van IC24 is AOOOG-aFrE AK. 


Over LADEN en LOSSEN van CASSETTES en BANDJES 

En 
De informatie op het bandje, bestaat uit de pulsen van afwisselend 1200 
en 2400 Herz. Deze wordt in uiterst fijne streepjes dwars op het bandje 
geschreven. Bij het aflezen van deze fijne magnetische streepjes heeft de 
spleet in de schrijf/afleeskop van de 'eigen' recorder dezelfde stand 
(dwars op de band) als bij het schrijven, Het is namelijk dezelfde kop. 
En als deze bij het schrijven niet helemaal haaks op de band staat, maar 
by, een haartje scheef, staat hij bij het aflezen precies even scheef. 
Geen probleem. 
De stand van de kop dwars op de band, ideaal dus 900, heet de AZIMUTH. 
Wat er gebeurt, wanneer een bandje dat geschreven werd op eén recorder 
met de kop een haartje naar links, wordt afgelezen op een recorder met de 
kop een haartje naar rechts kunt u zich wel voorstellen. In een situatie 
als deze worden pulsen die bedoeld zijn als BLOKVORM, gelezen als iets 
tussen SINUSVOR# en ZAAGTAND. 
Genoeg theorie: Wat doen we aan een scheve kop? Bij elke recorder is de 
azimuth instelbaar met een stelschroef links of rechts van de kop, nl. 
dié schroef, waar het veertje onder zit. heestal zijn de schroeven gelakt, 
De beste en simpelste manier is om bij de winkelier of bij een kennis met 
een recorder van hoge kwaliteit een bandje te laten maken, waarop een 
constante fluittoon staat van een toonhoogte tussen 2500 en 3000 Herz. 
Thuisgekomen sìoopt u de deksel van de recorder af zo dat u met een klein 
schroeventraaiertje bij de azimuth-stelschroef kunt komen. det is de be- 
doeling dat u het stelschroefje verdraait terwijl het fluitbandje speelt. 
Op het moment, dat de geproduceerde fluittaon op z'n hardst klinkt en uw 
vrouw vraagt ot u niet een andere hobby weet, staat de kop goed, Wanneer 
uw recorder wat zweeft is dat niet zo erg. De computer slikt dat wel, 


Het WASSEN van handjes. EE 
deeft u kans gezien om een programma met pijn en moeite te lOADen en wilt 
u het daarna 'SEWASSEN! vanaf de computer op een nieuw bandje zetten, dan 
blijkt soms, tat dit niet gaat door verminkingen en/of blokkeringen, die 
in de voorgeschiedenis zijn ontstaan of aangebracht. t kunt het programma 
dan wel KUNnen, maar niet copiëren; niet door een audiocopie omdat het 
bandje bv, te Slecht is en niet via de computer vanwege verminking of 
blokkering. 

Wet CAT vindt u "program" Startadres Executieadres Bloknr, Vulling 

ov, als le regel PROGRAM 23900 Ceze 0000 FF 

als laatste régeìl PROGRAW 3300 C2EE 0004 A6 

Voor #SAVL neeft u nodig: “naam” Startadres Kindadres kxecutieadres 

det startadres weet u, in dit voorbeeld dus 2900 

det executieadres ook, in dit voorbeeld dus C2E2 

Het eindadres vindt u door: van het laatste blok bij xCAT het beginadres 
te nemen (hier dus 3300) hierbij de vulling van dat blok (hier A6) plus 

1 byte (altijd bij xSAVE) bij op tellen (hier dus in totaal 3347). 

In dit voorbeeld doet u dus SAVE "PROGRAM" 2300 3347 C2B2. U heeft dan 
weer een 100% fris bandje van uw geliefde program. 





ErLOAD xr 
Bij #FLOAD doet u het volsende (dit staat níet duidelijk in het boek): 
direct na SUM sKROK stopt u de band, dus vóór de "leader! volgend blok, 
Dan typt u in £FLOAD"NAAN" (ret) en vervolgt het laden met volgend blok, 
etzelfde met evt. volgende SUM EKRORs, Na laden LIST, RUN zal het wel 
niet Annen. 





áijn er ook te goede recorders? EEEN 
In Acorn Nieuws nr,2 hadden we het over Azimuth-problemen, die zich, 
vooral bij eenvoudiger recorders, kunnen voordoen. Aan de andere kant 

is vrij algemeen bekend, dat een 'dure!' recorder voor computerdoeleinden 
ook niet automatisch de beste resultaten geeft. Veelal zijn die 'te goed!. 
De oorzaak hiervan zit in de golfvorm, die de computer bij 'save' afle- 
vert. Globaal omschreven schakelt de computer aan z'n uitgang alleen van 
Hoog naar Laag en omgekeerd en dat razendsnel en zou dus blokgolven leve- 
ren, Ken zuivere blokgolf is in theorie een golfvorm, die samengesteld 
is uit de grondfrequentie en alle boventonen in gelijke verhouding. 

Het zijn juist die boventonen, waar de computer bij teruglezen van de 
band niets van hebben moet. In de praktijk is bovendien âe oorspronke- 
lijke golf geen zuivere blokgolf maar een blokgolf met ‘rafels' die dui- 
den op extra aangedikte boventonen. Een simpele recorder verwaarloost 
die boventonen, slijpt ze eraf, Een dure recorder is duur omdat deze wel 
zuinig is op boventonen, We willen toch Hi-Fi. De Hi-Fi recorder levert 
de oorspronkelijke blokgolf terug als een pyramidevorm met trapvormige 
flanken. De computer kan bij lezen hiervan de trappen 'triggeren' als 
extra pulsen; telt te veel en geeft dan SUM ERROR. 

Om van deze problemen af te komen kunnen we voor een paar dubbeltjes een 
eenvoudige 'low-pass' schakeling maken. Dergelijke filters, die dat doen 
zitten al in de uit- en de ingang van de computer. In de praktijk blijkt 
die filtering echter niet afdoende. Je kunt deze wel wijzigen maar je 
kunt ook de cassette-kabel doorknippen en daar een extra fiitertje tus- 
senzetten. Je kunt dan de computer eventueel ‘inbedrijf' laten, continu 
Xxxx laten produceren (anual blz,t) en knutselend aan het filter op een 
oscilloscoop zien wat het resultaat is, 

Die resultaten zal ik voor u beschrijven: 

Van de cassette-kabel werd de leiding ván computer néár recorder ergens 
opengemaakt, Je kunt dan de binnendraed (signaalleiding) en de afscher- 
ming (aarde) wat uit elkaar trekken. Die binnendraad verbinden we met de 
afscherming d.m.v. een condensatortje. Als bekend ‘spert' een condensa- 
tor gelijkstroom doch 'geleidi! wisselstroom. Hij geleidt die wissel 
stroom destemeer, naarmate de frequentie van die wisseldtroom overeen- 
komt met de resonantie van de condensator. Om hoge toren te laten af- 
vloeten hebben we een klein condensatortje nodig met een resonantie 
frequentie die hoger ligt dan 2400 Herz (dat signaal moeten we juist spa- 
ren). 

Nemen we als condensatortje ca. 20 nF, dan zien we op de oscilascoop, 
dat van de oorspronkelijke rafelige computer-blokgolf de linkernoek wordt 
afgerond. Maken we het filter compleet volgens tekening, dan wordt de 
rechterhoek afgerond. Er resteert dan nog een hoekigheid aan de top, 
doch wanneer dit signaal op een goedkoop bandje is geschreven en wordt 
teruggelezen, blijkt die hoekigheid praktisch verdwenen. We naderen dan 
de zuivere sinus, Aangezien een filter nooit geheel selectief is op één 
frequentie, verdwijnt er in dit filter ook iets van de 1200 Herz toon en 
nog iets meer van de 2400 Herz, We kunnen het filter nu verfraaien door 
zgn. klippen met 2 tegengesteld gerichte silicium diodes bv, 2x 1N4 145, 
U zult wel om de verliezen in het filter te compenseren de volumerege- 
laar bij ‘record! verder moeten opendraaien. De resultaten van het be- 
schreven filter bleken bij mij alle verwachtingen te overtreffen. 
Wanneer men via dit filter de xxxx op de band zet, blijkt de computer 
bij DO P.&BGET A;U.O (zie Manual bla.5) uitermate tolerant, Vanaf prak- 
tisch afknijpen van de volumeregela:r tot 2 à 3-voudig oversturen blijft 
de computer rustig xxxx schrijven, 

Voor tekeningen van signalen en de schema's zie volgende bladzijde, 

Dit artikel en de artikelen van vorige pagina zijn van G.borghaerts. 
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VISLOAD van Arie Marchal MVISLOAD" EE 
Dit programma, tevoren geladen en ge'run'd maakt zichtbaar laden moge- 
lijk van volgende programma's. 


ALLCOS. "ALLCOS" KEKEEEER 
SAVE en LOAD routines. Altijd zichtbaar op het scherm, Door A.Karchaì. 


Luistervink. EEEEEE 
Meeluisteren bij LOAD en SAVh dat kan. We horen dan of de bitjes op de 
cassette of in de computer terecht komen, De ingangs-condensatoren C1 en 
C2 worden in de computer op de DIN-plug SK2 aangesloten. De waarden van 
Rí en R2 zijn richtwaarden. R1 en K2 moeten zodanig gedimendioneerd zijn 
dat bij omschakelen van S1 (LOAD/SAVE) het signaal even hard klinkt. In 
rust moet 51 in stand LOAD staan. 

a) Door de grote versterking van IC46 in de ATOM heeft men bij laden 
maar een klein signaal op de ingang van SK2 nodig. De meeste cassette- 
decks geven een vrij groot signaal af, wat tot oversturing kan leiden. 
Een eenvoudige weerstandsdeler lost dit op. 

b) De uitgangssignalen van stereo-decks mogen NOOIT met elkaar doorver- 
bonden worden. 


Back view 
ATOM sK2 





RS 232- interface voor de Acorn Atom 


EEZEAEE 
Inleiding: 
Om data te verzenden van een computer na.r een randappara:.t of anaere 
computer zijn er twee verschilienae metnoden mogelijk, Dit zijn pcral- 
lelle overdracht en seriële overdracht. Bij paralleïle overdracht woraen 
voor een byte data d ver:cnillende lijnen gebruikt als ingang of uitgans 
van de computer. Bij seriële overdracht is dit slecht 1 enkele lijn. 
De Atom beschixt al over de mogelijkneid om data parallei te verzenden 
m.b‚v, het VIA IC (6522). On. een veelneid aan bedrading te beperken Kan 
men seriële overdracnt toepassen, In zijn meest eenvoudige vorm, is dit 
slechts een 3-draads verbinding van computer met randapparatuur. 
Om de data van de databus (parallel) om te zetven in seriële data Kan 
men een enkele poort van de VIA gebruiken, echter er is dan een vrij 
groot programma noúig wat dan ook nogal gecompliceerd van opbouw is. 
Voorts krijgt man probiemen bij het transporteren van data in *fuls 
duplex! (zenden én ontvangen over een enkele verbinding op hetzeifue no- 
ment). ten betere methode is om deze functies te laven verzorgen door 
een enkel IC. In de 65xs serie is er een dergeitjke chis aanwezig. Dat 
is de 6551 ACIA (asynenronous Communications Interface Auapter). wit LC 
noemt men ook wel een UART, zoals de &251 van INTEL dae nezeifde moge- 
lijkheden heeft voor computers met &080 of &Ob5 processor. 
De 6551 bevat alle benodigde electronica om data van parallel naar serie 
om te zetten volgens een programmeerbare codering, en vice versa. Cok 
kan de IC serie data verzenden en ontvansen op 16 verschiltende snel- 
heden (baudrates). 
Worden alle zend- en ontvangsignalen van deze ACIA nog ousezet in +12/ 
-12V niveaus dan heeft men etn RE 232-C interface, HS #32-C 1e een Ame- 
rikaanse normalisatie voor seiële transmis van corputers met allerlei 
randapparatuur, de ruropese equivalent is de Vr4 nors, Het versenil tus- 
sen beide is de connector die men toepast, KS 232-l gebruikt een 25 pol, 
D-connector met genormaliseerde a:nsluiting en de V24 schrijft gecn bep. 
type connector vaar, 
De Schakeling: 
De hieronder beschreven schakeling bevat een 6551 met interne baudrate- 
generator, een bijbehorend kristal, voor alle i/o lijnen optionele in- 
verters (via stropjes te selecteren), lijn-drivers en -receivers om er- 
voor te zorgen dat de signalen op KS 232-( niveau gebracht worden, Le 
verbindingen van de ACIA met de Plö bus van de Ator zijn voorzien van 
Full-up weerstanden om vesrassingen te voorkomen. G zebruikte inververs 
zijn via weerstanden wet de 5V voeding verbonden, ae voedingsspanning 
van de verschillende IC's zijn ontkoppeld bij de IC's en de +12V/-124 
voeding is nog eens extra afgevlekt teneinde zo zuiver mogelijke voe- 
dingsspanningen te verkrijgen. 
Voorts vindt u in het schema enkele IC's die tot doel nebben om net 
niveau van de ingangen en uitgangen van de ACl& op het genormaliseerde 
spanaingsniveau van KS 232 te brengen (+12V voor een ‘U! en -124 voor 
een '1'), 
De voeding maakt de schakeling compleet, Deze nasft slechts de bejar IC's 
2 en 3 te voeden. 
De complete hardware stast beschreven in een artakel 
archief is opgenomen. 
De interface kan geprosramseerd worden voor de volvernde functies 
baudrate (50,75,140,135,150,300,600, 1260, 1500 ,240U „3600, 464 
en 19200 baud) 
aantal storpbits (1,1ì en 2 sto 
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data woerdliengte (5,6,7,5 bits overdracht) 

echo=toestand, interrupt zan/uit, ontvanger aan/uit, zender aan/uit, 
reset. 

Bij de in het drukwerkarchief aanwezige pakket documentatie is ook een 
programnavoorbeeld dat de ACIA kan sturen. Tevens is er een print lay- 
out hij. 

Tot slot dan nog wat over de aansluiting op de Atom. kr wordt gebruik 
gemaakt van de nog vrije connector Plé. Deze connector bevat de adres- 
lijnen voor het bereik #B409 — ÉDIEF. De interface bestrijkt slechts de 
Aressen #B400 -— #5403. 

kzelf heb de schakeling nu ingebruik om m.b.v. een WODei per telefoon 
te communiceren vet een andere computer die 40 km verder stant. Ook heb 
ik al een andere computer DIRECT gekoppeld om op de respectabele snel 
heid van 960Q Baud gegevens met elkaar uit te wisselen, kn dan hebben we 
het nog niet eens over alle mogelijke randasparatuur, 
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Uitbreiding van schakelinterfacing 

EEE 
ken globale orientatie: 
Voor schakeldoeleinden zijn input-outrut mogelijkheden zouig. wen noeat 
dit in het algemeen I/C poorten. 
Hoe staat het dasrmee bij de Acorn-Atom? 
Binnen de organisatie van de Atom is alle 1/0 ondergebracht ia net 4K 
adressenblok #BOO0O — #BFFF. 
Het IC 49, een L5139, verdeelt dit blok ín 4 blokken van Ih, 
Het eerste blok BOOO-B3FF gart naar IC o255b= IC 25, Deze ch. 
het toetsenbord, schakelt de cassette I/O en nog wat zaken, 
Het tweede blok B400-B7FF gaat naar de printconnector Pl&. Aan deze con- 
nector komen tevens 4 adreslijnen (AQ-A3), ae ChipSelect C5#B400, de 
volle databus en controlbus (K/w,‚Clock,Inter.,Feset) en de 5V-0Y. Lat is 
volledig voldoende om aan deze connector v.v. een ViA 6522 te hangen met 
z'n 2ktebits I/O poorten, handshake,etc. Dat kan, maar uoeft niet. sr kan 
ook b.v, 4 keer een 8255 aan of een IL 6550 t‚b.v. een seriele uitgeng 
voor printers, een telefoonmoder, joy-sticks, A/D convertore etc. 
Het derde blok B800-EBFF gaat naar IC 1. Dat is een 6522 VIA waar, aan 
één van de poorten, de centronic's printers aannangen via net buffer 
IC 50. P16/T geeft o.a. alle poort bits nog een keer, hu echter onge- 
bufferd, 
Het vierde blok HCOO-BFPF kan worden betrokken van pootje 7 van net ge- 
noemde IC 49 d.i. de Chip Selct BCOO-BPFF. Voor hobbyasten, ait nongeren 
naar poorten, zoals ikzelf b.v. om er modelspoor mee te sturen met z'a 
vele schakelingen, biedt deze adresband van IK de „elegenheid om er nog 
eens een IC 6522 VIA mee aan te sturen, oe rest van ae lijnen nuervoor 
kan men eveneens van Plo betrekken. 
Zijn bev, de 3 mogelijke IC's 6522 met hun totaal ,60 poorten nog niet 
genoeg (b.v. bij verfijndere modelspoorschakelingen) dan is er nog de 
mogelijkheid van echt grof geschut. Uit de laatste adresband is het 
mogelijk tot 64! IC's 6522 aan te sturen. Hiertoe aient men dan uit ae 
adreslijnen A4...A9 in totaal 64 CS lijnen te decoderen met b.v. o maal 
een 74LS138 en wat extra logica. 1309 I/O bits! 
Dit globale overzicht kan u een idee geven! 

Ge.borghaerts. 








akelt (Leest) 


Aansluiting van printers 
) 


Aansluiting Seikosha GP 80M. x 
De Seikosha GP SOM wordt aangesloten aan de ACORN aan de buffer LS244. 
Zie ACORH schema linker bovenhoek: de IC's 1 en 50 moeten aanwezig zijn. 
De volgende signalen moeten doorverbonden: 


Strobe printer aan strobe PL5 Data 4 printer aan data 3 PL5 
Data 1 hid " data 0 * Data 5 " "data 4 * 
Data 2 hid "data 1 " Data 6 „ “data 5 * 
Data 3 " “data 2 * Data 7 ” “data 6 * 
Ackn. van de printer aan ackn. PL5 
Busy me ” ” busy PL5. 


Data & van de printer naar logic O van de printer = pin 12. Of voor 
grafische mogelijkheden zie volgend artikel, 
Tussen de signaaldraden steeds een aardlijn! 


Aansluiting EPSON 62, EE 
De EPSON type 62 is evenals de Seikosha een printer met Centronics (pa- 
rallel) aansluiting. De aansluiting van deze printers komt dan ook over- 
een. Op een punt na: data & van de printer moet niet naar logic 0 pin 12 
van de printer maar naar logic O pin 16 van de EPSON printer. 


Aansluiting TELETYPE. “TKLETYPE" EEE 
Arie Harchal kwam in het boek 6502 Software design de aansluiting voor 
een teletype aan een AIM65 tegen. Hij werkte dit om voor de Acorn, zie 
hier (en op het bandje) het resultaat. 

De printer kan aan en af gezet worden met ?AF=1 en ?AF=0, In het program- 
ma is in regel 90 en 310 tevens een anti-dender programmaatje opgenomen. 
Het hardware-schema vindt u hieronder, Equivalenten voor het IC 7438 
zijn SN5432, SN54L538, SN7438 en elke andere positieve NAND. Overigens 
is het boek (6502 Software design: L.J.Scanlon) een uitstekend 6502 
boek, dat ook nog arndacht besteed aan de 6522 VIA-chipe bek. 1 


TELETYPE-interface. KEEKEEE 
G.Akkermans vereenvoudigde het schema voor de TELETYPL iets, De NAND- 
poort van de 7438 hoeft n.l. alleen te schakelen tussen wel en geen 
stroom. Dat kan een enkele transistor ook!!t Vandaar deze schakeling. 
Deze heeft de volgende voordelen: a) hij is goedkoper en b) hij is klei- 
ner, âus makkelijker in te bouwen, Vrijwel ieder type npn-transistor 
zal ín deze schakeling voldoen. Eek .2 +5v 
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Grafisch printen GP-80 printer. SUE 60 Hete EEEK 
Grafisch printen met de GP-60 van Seikosha, hiervoor moet data bit ò van 
de printer aan PB O van IC 6522 zitten. Het programma piept als de prin- 
ter niet aanstaat, Voor het eigen programma moet men vancf regel 33 het 
eigen programma intypen. Sluit dit dan af met LINK 1L9. net programma 
werkt met de volgende codes: S=stop, N=print normaal, I-print invers 
(=wit op het scherm wordt zwart op de printer en v.v.). De auteur is 
Hans Rieuwerts, 


Enkel of dubbel printen. “ENKEL OF DUB." EEEEEEXN 
Het in enkele of dubbele grootte uitprinten van GRAFIC's door Varkevisser 
uit Katwijk. Toelichting op het programma. 


230 #AC wordt gebruikt als vlag 540 #Ab telt in het geval van 

240 indien #AC=0 dan enkel dumpen dubbel dumpen van 1-2 

250 indien #AC=1 dan dubbel dumpen 650 als #AC=1 dubbel dumpen dus 

280 X-coordinaat dan wordt het byte verder 

230 Y-coordinaat afgehandeld in PPo-PP16 

300 hulpvlag bij dubbel durpen FPFG-PP15 zijn specifiek voor 

310 byte naar printer het dubbel printen 

320 teller 1-3 of 1-7 1070 vlag, zie boven, is dus 1 of O 

330 vlag bij dubbel dumpen 12850 deze subroutine is een trucje 

340 indien O dan zijn 3 bits dubbel om te kijken of een bit op 
en 1 enkel aan het printen, plek (X,Y) aanstaat of niet 


indien 1 dan net andersom 


Grafisch printen met SEIKOSHA of andere. PGDUMP TOOKMAN" zer 

Grafisch printen met een 'CENTRONIC's' printer. het deze printers kan 

grafisch geprint worden wanneer DATA 6 van de printer niet aan logisch 0 

wordt gelegd, maar aan de (te programmeren) bit O van poort B. Voor dit 

programmeren heeft men dan een snel programra nodig. Toelichting bij dit 

programma: 

180 haal startadres objectcode, voorkom overschrijving sourceprogram;a 

210 inítieer variabelen, fill array, enter assembly loop 

220 open printer channel, initieer Pla 6522, zet B-poort op output 

230 initieer start- en eindlocatie 

240-250 initieer printer 

260-300 haal T-bits; stuur deze naar de printer; verschuif masker tot 
bit O aan de beurt is geweest, incrementeer blok (bx7x32 dots) 
en ga door tot het gehele VDU beeld geprint is, of onderbroken. 
Zet printer terug in de tekst-mode en schakel het printer-kanaal 


id uit, 
360 plaats de tabel met maskers (& bytes)seind. Ad Toorman 
Grafisch printen met de MICROLINE 80. MICRO BO" EKEKEERE 


De printer wordt eerst ín de 132 char/regel en & regels/inch gezet en 
kopieert daarna 'CLEAR 4', Het is geschreven volgens de standaardisatie 
norm bit 3 van 8255. det programma is principieel anders dan dat van bv. 
Riewerts. Het werkt waarschijnlijk ook voor de kPSON, De lengte van het 
programma is {FE bytes lang. Nadat de printer uitgerateld is, moet nog 
een Cntr F gegeven worden, omdat het beeldscherm ge'disabled! is. Dit 
kan ook automatisch door op regel 965 JSRF;LDA:6 bij te tikken. Als na 
de piep een I wordt ingetikt, wordt het hele bet ldscherm geinverteerd 
en hoor je weer een piep. Drukt men nu op een willekeurige toets den 
wordt datgene dat wit is op het scherm zwart op de ‘print-out', Aldus 
Leendert Bijnagte. 


STANDAARDISATIE Printer- en interface schakelingen. EEEEE 
In de paar maanden dat de Acorn Computerclub bestaat, ontvingen wij van de 
leden meerdere programma's t.b.v, grafisch printen en morse/rtty interfa- 
cing, Deze programma's werden, alnaargelang de keuze van de inzender, ge- 
schreven hetzij naar bit O van de B-poort van de VIA 6522, hetzij naar 
bitje 3 (dus vierde bit) van de C-poort van de 8255, Als we zo doorgaan, 
blijven we aan het omsolderen en om-programmeren, wat niet de bedoeling 
is. Na overleg en bestudering heeft het bestuur besloten om voor beide 
gevallen (grafisch printen en CW-interfacing) het gebruik van bitje 3 van 
de C-poort van de 8255 te standaardiseren. Technisch houdt dit in: 

A) dat LINK 5(a) wordt doorgekrast 

B) dat LINK 5(b) wordt gesloten 

C) pin 9 van de printerconnector gaat naar pin 1 PL4 

Wat betreft de punten A en B (het resp. doorkrassen en doorverbinden): 
hierdoor wordt het VDU-beeld bij grafisch uitprinten van het scherm 
rustiger. Het kan zijn dat u dit verschil niet merkt, maar het ìs beter 
om het wel te doen en onvoorziene complicaties te vermijden. Na de hande- 
lingen A en B behoudt men de 4 grondkleuren. 

Voor programmeurs: Bitje C3 is normaal LAAG. Wet DATA 6 aan bitje C3 ligt 
de printer dus met data 8 normaal aan O d.w.z. TEKST. Poort C bevat 'nor- 
maal! DT, Bitje C3 gaat HOOG als we hiervan DS maken, In basic: ?/BO03=6 
in mach.taal: INCÉBOO2 (en DEC v.v.). De C-poort staat namelijk óók reeds 
normaal op OUTPUT. 

De filosofie achter dit verhaa, we dienen niet een gehele machtige poort 
van de VIA 6522 te sperren doorvprecies 1 bitje te laten schakelen. 
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Chassis-deel printercon- rust = hoog 


nector, gezien aan achter 
zijde SIDE 2 


ADRESSEN ret hun beschrijving uit FOX enCXXX 


C278 File shut routine.(RTS) 

C2B6 Execute new commando. Blijft onveranderd; ‘> wordt met 6 geinitiali- 
seerd. 

C2CF Interpreteer Basic string op adres (5,6) 

C2D5 Als C2CP; echter nu vanaf adres 100. (commando line buffer) 

C3CB Haalt basic accu 16,X enz. en plaatst deze in 52-55 

C3CD Als C3CB, echter verplaatst accu naar 0,Y-3,Y 

C424 Check of FP-ROM aanwezig is, indien aanwezig wordt de carry geset, 
zoniet gereset. 

C46A Converteert decimale string aangewezen door de basic pointer en ge- 
termineerd door een niet ASCII © tot 9 char, naar z'n hex equivalent 
en plaatst deze vanaf 52 in de zero-page, en in de basic accu's 16,4 
etc, Indien er een variabele wordt ingelezen, 

C4E4 Verplaats de basic interpreter pointer naar start eerst volgend sta- 
tement, 

CAF6 Paat basic pointer 5,6 en de offset Y(= ZP loc3) zodanig aan dat Y=1 
(en ZP loc.3=1) 

C558B Roept eerst C4E4 aan; gaat daarna het statement interpreteren waar 
de basicpointer ((5),Y ‚waarbij Y in 3 gesaved is) het statement aan- 
wijst. 

C583 Converteert basic accu (16-25-34-43) naar een dec,string die hierna 
via OSWRCH weggestuurd wordt, 

CT8B Interpreteert expressie op adres (5,6), resultaat in accu 0 (16-25- 
34-43) 

C8C5 Maak two's compliment van basic accu 16,X enz. 

CID Verplaatst rnd (8-D) naar basic accu 16,X enz. 

CIA1 Verplaatst O,Y-3,Y naar basic accu 16,X enz. 

C9D8 Error handler: haalt PC van stack (niet meer nodig) en vervolgt met 
CIDA 

C9DA Error message; accu = error nummer; plaatst inhoud van 10,11 an 5,6 
en interpreteerd de string op adres (10,11) hierna door een jump 
naar C2F2., Deze string staat normaal op adres C9E7 en kan event, 
door de gebruiker veranderd worden door 10,11 te veranderen. 

CA4C Pránt ASCII karakter in accu, vdhoog/verlaag count 

CDOF Text input routine. Staat invoer van een string van max. 64 kar.toe, 
Bij entry wordt de inhoud van de accu als ASCII chr. weergegeven. 
(Basic input ; accu=3F) de ingevoerde string wordt vanaf adres 100 

‚in het geheugen gezet. 

CDOB Als CDOF, echter nu wordt de string vanaf adres 140 in het geheugen 
gezet, 

CD54 Print CR+LF, reset count op O 

CD9B Execute end command; komt terug in basic line input (Commando mode) 

CE86 Basic autostart adres. Veronderstelt dat de pointer voor dêmensione- 
ring arrays op z'n juiste waarde gezet is (normaal:35,36=D,E) even- 
als TS pointer 12 


F668 Decrement 5A,X en SB,X als zijnde 2 byte teller 

F671 Increment 5A,X en 5B,X als zijnde 2 byte teller 

F6E2 Point plot routine voor graphics mode 0. 

P73B Idem mode 1 

F75$ Idem mode 2 

P76D Idem mode 3 

FTAA Idem mode 4 

FID Print string beginnend op PC+3 totdat een byte met B7=-1 gevonden 
wordt; nadat geprint is wordt de PC gezet op de instructie met B7=1 
(Terminator) 


PTR 
F1FD 
ra02 
F8OB 
F876 


FSTE 
F693 


P96E 


FAO8 
F8EF 


PAE5 


FB83 
FC38 


FC40 
FC7C 
FCEA 


FDOB 
FD11 


FD1A 
FD44 
PD69 
FD92 
FE52 


FE66 
FE6B 
PET] 


BLOCK 
000 
9001 
Coo2 
COO3 





Print de hex inhoud van {+1 en X als ASCIt kar. 
Print een spatie 
Print de hex inhoud van de accu als 2 ASCII kar. 
Print accu low nibble als ASCII kar. 
Verhoogt Y totdat in de command line (100,Y) een niet space kar. ge- 
vonden js. 
Onderzoekt ASCII kar, in accu op hex O-F kar, wanneer een niet hex 
kar,: set carry; anders reset carry 
Haalt hex ASCII data van 100,Y en plaatst deze in O,X en 1,X. Bij 
exit bevat A het aantal gelezen ASCII kar,, carry is geset 
Laad cassette file. De volgende data moet dan aanwezig zijn in ZP: 
O,X 1,X adres naam string; 2,X 3,X default laad adres; 4,X positief 
indien het geen autorun zijn moet, 
Inerementeer O,X en 1,X als zijnde 2 byte teller, Vergelijk hierna 
teller O,X met 2,X; als gelijk Z=1 
Interpreteer string startend op adres 100 als COS commando; alle "#" 
commando's zijn toegestaan. 
Save file routine, De volgende data moet in ZP aanwezig zijn: 
0,X 1,X adres start van de naam string 

‚X herlaad adres (voor zLOAD en zRUN) 
‚X start executie adres (zRUN) 
‚X adres eerste byte van file 
9,X adres laatste databyte file +1 
Delay loop. Delaytijd wordt bepaald door de waarde in het X reg. 
x 1/60 sec, 
Print "PLAY TAPE" als C=1; als C=O “RECORD TAPE“ en wacht op toets, 
Exit met A=13,X en Y vernietigd. 
Print "REWIND TAPE", verder gelijk aan FC38 
Save byte in accu op tape. Checksum in DC wordt verhoogd. 
De eigenlijke print karakter routine, Reageert niet op control kar. 
en gebruikt alle uP registers. 
Clear B7 Zero=Page byte EO (P.$6) 
Naakt B7 Zero-Page byte 1 (neg.byte: P.$21) Indien C=1 bij entry; 
zoniet wordt B7 weer hoog (1) 
Bleep (P.,$7) 
Inverteer bit 7 vanhet kar, waar de cursor op "staat" (EOR met E1) 
Clear screen, home cursor (P.&12) 
Maakt Zero-Page byte E6 negatief (P.$14) 
Print ASCII kar. op beeldscherm en/of printer (mits deze geenabled 
zijn dem.v. $6 of #2) alle reg. zijn onveranderd bij exit; control- 
karakters worden via een tabel geserviced, 
Wacht een frame (exit als flyback=1) 
Wacht op laag-hoog overgang flyback 
Voer een keyboardscan uit; Als toets ingedrukt: C=0; als geen toets 
ingedrukt: C=1 
Keyboard input routine. Wacht op toets, ASCII waarde bij exit in 
accu, anders registers onveranderd, 
Printer routine. Print ASCII kar. ín accu, mits geenabled. (Accep- 
teerd en serviced $2 en #3 ook) 
Reset vector wijst naar deze locatie; start met initialisatie opera- 
ting system vectoren. 


a td oa > 


: 
, 
’ 
, 


nnen 


9 RAM 

Error nummer (Atom Th & Pr) OOE6 + Page-mode on (=aantal lege re- 

Bevat BASIC regelnr, welke - Page mode off gels) 

wordt uitgevoerd OOET Als bit 5 én 6 1 zijn, 'LOCK' aan 
Pointer naar huidig kar, in OOEB, Werkruimte 


Basic progr, in uitvoering DOEI v, diversen 


0004 Tijdelijke opslag X-Reg. 

0005)Pointer naar huidig basic 

O006 statement in uitWeering 

0907 Print positie tvb, COUNT 

GOO8B Startgetal voor de RANDOM 

QOOC' generator (ATP) 

000D, Systeem vdiabele TOP 

O0oE) » e „ 

OOOF Tijdelijke opslag Y-Heg. 

0010) Adres van Basic-Error-Handler 

0011 *normaal is dit #C9E?7 (ATP) 

OOt2Tekstruimtepointer. NaBRK =#29 

0013 Aantal 'geneste' do-loops 

0014 Aantal ‘geneste’ subroutines 

0015 Aantal ‘geneste! for-loops 

0016)Basic werkruimte : 

0058 16,25,34,43= 4byte 

0959 Hulpreg.v.Expressie evaluatie 

005AX-coördinaat bij PLOTTEN 

005B 

Ooep)Y-eoördinaat bij PLOTTEN 

OO5E PLOT-PARAUETER: O=4OVE, J=SET, 
2=INVERT, rest =CHLEAR (unset) 

OOSFHulpreg. voor 


0060 PLOT-routines 
0061 \pasic werkruimte 

JO6F 

0970,Floatingrpoint 

OOTF werkruimte 

0080 


oops) COS werkruimte 


OODC CHECKSUM bij "SAVE" en "LOAD" 
OODD Parameter voor FLOAD (bit 7=1) 
+t=ztel bloknr, -=+FLOAD 


OODE 
gopp)Adres van de CURSOR 


OOEA Als ‘niet O' geldt 'NOmON" 

00ks, COS werkruimte 

OOFD 

OOFE Normaal OA='Line-Feed! 

0100) Input Line Buffer, 

O13F normaal #40 lang 

0140 Benandelruimte voor 

O17F SThINGS 

1eB)vaor 6502 STACK 

0200, NMI routine adres 

0201’ (niet v‚, COS of H1SIC) 

0202 BRK routine adres 

0203’ normaal C9D5 

0204, IRQ routine adres 

0205’ normaal. AOUO =IC 24 

0206-7 Interpreter-routine Norm. FökF 

0208-9 WHITE CH rout. Norm.Fh52 

O20A-B hEAD CH rout. Norm. FE94 

O20C-D LOAD FILE rout,‚Norm.F96L 

O20E-F SAVE PILE rout.Norm, FAS 

0210-11 RDE VEC rout. Bij BRK n.,C2AC 

0212-13 STK VEC rout.Bij BRK n‚ C2AC 

0214-15 Get byte from tape.Nor.FBLL 

0216-17 Put byte to tape.Norm.FC7C 

0218-19 Print Tape Byte.Norm.F( 3ö 

O21A-B SHUT FILL rout,adr,Norm.C27b 

021C bij KTS 

023r 

0240-02E4 BASIC-werkruimte 

O2EB-0320 AKKAf-adressen 2% naar 2LD 
en 306, AA naur 2kC en 307 
enz. 

0321 'Apestaart'z=arntal spaties.N=t 

0322-033B Low byte v‚, variabelen A-4 

033D-0356 2de byte 


(ATP) 


)Ongebruikt 


{0358-0371 3e byte 


OOEG Positie v/d CURSOR op regel (#20 0373-038C Hign byte 


OQE1 Habitus v/d CURSOR, #0O=uit, 


#8O=blokje,kan ook wat anders in 


OOEF) Werkruimte, bv, voor BACK-UP 
OOES'van reg. 


, 038D-03C0 Label-adressen, a ìn Jol 


en Jor, b in enz. 
03C1-03FD Basic-werkruimte 

Û3FL-O3FF Adressen v‚PLOT-POINT rout. 
P6E2 v. KODE O;F730,F754, 
FT6D,WTAA resp.v.NODE1, 2,3, é 





Atari vreugde-knuppelije: 
EEEX 
In het Atari vreugde-knuppeltje zitten 5 klikkende 


mieroschakelaartjes en er komt een 6 aderig kabel- 
tje uit. De printsporen, zie schema, lopen eigen- 
aardig, doch laten zich door doorkrassen naar be- 
lieven wijzigen. Voor dezelfde prijs (+ £40,-) is 
een draaiknopdinges te koop. In het volgende nr. 
meer over de joy-stick. 


1enasé 

Knuppel aan de Acorn: EEEEE 
3.v.Eldik kocht, n‚a.v. het artikel over de Atari-knuppel aan de Acorn 
erfeen. Hij &oldeerde direct op de print, Om alles te controleren werd de 
volgende test (van G.B.) ingevoerd: 
10 P, 745001 Er verschenen 4 keurige rijen met waardes, die veranderden 
20 GOTO 10 toen hij aan de knuppel kwam. Geen aanraking dan verscheen 

er 255. Het geng allemaal een beetje te vlug, dus: 
10 P.$12;?/E1=0 scherm schoon, cursor weg 
20 P.?#B001,830 inhoud van BOO1 op scherm en cursor terug na:r begin 
30 GOTO 20 
Er verschijnt nu slechts 1 getal op het scherm, dat pas veranderd als er 
aan de knuppel geduwd wordt. De getalten zijn leuk, maar wat doen we ermee? 
Voor spelletjes is onze knuppel uitermate geschikt en gemakkelijk te pro- 
grammeren, We laten het programma steeds naar BOO1 kijken en reageren op 
het getal dat daar aanwezig is. Bij het programma ‘Moonlander' uit Atom 
Magic. verving hij de volgende regels voor gebruik joy-stick. 












20 DIM P(-1);P.$21 20 Z=£BOCT 
30: ; JSRAPET 1; STYABO;RTS:J ;P.$6 vervallen 
240 IF R=53 F ÁD7 240 IF 24=239 V=V-5jF=R-5;?N=fDT 
250 H ÁD7 250 IF 253 JjF=F- 3; 2N=fD7 
260 3. Heil+3j FPJ; Ne ÁD7 260 IF ?4=247 H Ji FeF-3; IN=fD7 
499e?#ET=#60; END 49GeLINKÁFFE3 

500 IF 24=254;RUN 
Het programma is het zelfde,alleen 510 GOTOe 
nu voor de knuppel. 
Joy-stick "DEMO JOY" EEEEX 


Demonstratie program tekenen met joy-stick, van Borghaerts. Verklaring: 
Regel 20 begin maar ergens, 35 zet beginpunt, 50 onderdruk storing, 60 
zet inhoud #BOO1 in A, 78 als A=even begin opnieuw, Opmerking: In mode 4 
moeten âe 4 hoogste bits van BO0O 'F' blijven. 


Joy-stick II "Joy STICK! EEEKEEK 
Dit programma voor het tekenen met joy.stick heeft de volgende voordelen 
t.o.v, het program uit nr.5: 

1)Als de stick heen en weer bewogen wordt, wordt er niet direct een lijn 
getrokken, maar gaat er slechts een punt heen en weer; tekenen geschiedt 
na het indrukken van de knop. 

2)Tekeningen kunnen worden opgeslagen op band, na teruglezen werkt het 
program nog en de tekening kan eventueel nog verbeterd worden. 

De tekening die we op het scherm witlen hebben, tekenen we op een door- 
zichtig stuk plastic, wat we daarna op het scherm bevestigen. We bewegen 
de stip nu naar een lijn, die na het indrukken van de knop overgetrokken 
kan worden. (Schuine lijnen door bv. omhoog-rechts-omhoog-rechts-enz.) 
Als we tevreden zijn, kunnen we hem opslaan, Na het intypen van S kunnen 


we ae recorder starten, en de Spatiebalk indrukken. Terug roepen van een 
tekening geschiedt na het indrukken van L. (Deze handelingen worden ver- 
richt zonder naam, dit is veel sneller, wel zelf bijhouden waar het staat 
op het bandje. Anders regel 210 en 240 aanpassen.) Kegel 170 regelt de 
snelheid van lijntrekken, I=1 TO 100 is erg praktisch. A. de Bruin. 


Joy-stick III PJOTTING" XEEEEEE 
Dit programma heb ik geschreven om, d.m.v. het ons allen bekende 'lol- 
stokje! tekeningen op het scherm te kunnen maken, Iedere keer wordt er 
in #BOO1 gekeken wat daar voor een getal staat, Bekijken we nu de volger- 
de regel: IF ?fB001=247; X=X+1 Als we het knuppeltje neer rechts 
drukken dan wordt er '1' bij X opgeteld. Dat geldt ook zo voor de andere 
richtingen, Schuin plotten doet hij ook. Stel dat we nu ecnter iets 'ont- 
plotten" willen, wel dat is heel erg eenvoudig. U drukt gewoon, als toe- 
gift op het bv, naar rechts drukken van het knuppeltje ook nog even het 
drukknopje in. Gaat het plotten u te snel, verander aan de plotvertra- 
gingsfactor, bv. án 1000. Aldus: Wim Schreuder. 


Pretpook-aflees-routine "PRET POOK" EEEEEKEE 
G.Poot maakte een programma dat de pretpook afleest. 


ATARI-knuppeltje aan de ACOKN ATOM: door G.Borghaerts EEEEE 
Ook hier weer: voor de Acorn Atom nauwelijks een probleemt 

Op mijn suggestie in Acorn Nieuws 4 om aan de Atom op de simpelste ma- 
nier een (digitaal) knuppeltje te hangen, n.l. aan het toetsenbord, kwam 
een snelle reactie binnen van A,Millenaar. Hij wees op een aantal ‘vrije! 
contactmwogelijkheden in de matrix voor het toetsenbord. Helemaal tvrij' 
blijken ze niet te zijn, maar wel alleszins bruikbaar en vooral snel! 
Tekenen we hieronder het betreffende stukje van die matrix: 





De weerstanden R17,18,19,20,21,22,23,24 zijn ‘boven verbonden met B-poort 
bit 0,1,2,3,4,5,6,7. van IC 6255. Het zijn 'pull-up' weerstanden, die de 
ingangen van poort B omhoog trekken naar 5 volt zolang ze niet via een 
toetscontact én via een van de lijnen van IC 7445 worden omlaaggetrokken 
en uitgelezen, Volgens het matrix-schema kun je ze ook buiten IC 7445 om, 
omlaag trekken, De toetsen: Ctr.‚Shift en Rept, doen dit ook (kept, zit 
echter niet aan de B-poort van IC 6255 maar aan de C-poort bit 6). De 
toestand ven de B-poort van IC 8255 is uit te lezen op de geneugenloca- 
tie #BOO1, Zijn alle bits van deze poort ‘'noog', dan staat op deze loca- 
tie het getal 255 (#FY), Trekken we nu bit BO nar O volt, d.m.v. een 
schakelaar op plaats (1) dan verandert de inhoud van geheugenlocatie 
{BOO1 in 254, Trekken we bit Bî naar O valt d.m.v. een schakelaar op 
plaats (2) dan verandert de inhoud in 253. 

Bit O naar O volt betekent dus 1 punt eraf 

Bit 1 naar O volt betekent 2 punten eraf en vervolgens: 

Bit 2 naar O volt betekent 4 punten eraf, bit 3 naar U volt & punten er- 
af, bit 4 naar O volt 16 punten eraf, bit 5 naar O volt 32 punten eraf, 
bit 6 naar O volt 64 punten eraf en bit 7 naar O volt 128 punten eraf, 
Door combineren van schakelaars kunnen we zodoende op locatie #BOO1 elk 


getal zetten, dat we willen tussen 6 en 25). 
Zonder te solderen of zelfs maar de kast open te maken, kunnen we de voor- 
omschreven gang van zaken controleren, 


We typen hiertoe in: 10 P.?#BOO1 (print inhoud #B001) 
20 G,10 (blijf dit doen) 
RUN (ret) 


Op het scherm verschijnen nu continu rijen van het getal 255 (##F). Druk- 
ken we nu op de CONTROLTOETS, dan verandert dit-getal in 191. Dat is dus 
64 punten minder. Drukken we nu op de SHIFI-toets, dan verandert 255 in 
127, dat is dus 128 punten minder. Drukken we op CONTROL en SHIFT tege- 
lijk, dan verandert de 255 in 63, dat is dus 255-64-128, 

Omgekeerd is het zo, dat als op locatie ÁBOO1 het getal 63 staat, dit al- 
leen kan zijn veroorzaakt doordat én Shift én Control zijn ingedrukt, Een 
andere manier om op 63 uit te komen is er niet! Reken maar na. Zouden we 
alle schakelaars boven R17 t/m R24 tegelijk indrukken, dan komt in loca- 
tie #BO91 het getal Q. In de praktijk bereiken we op deze manier echter 
nooit O. Dit komt omdat één van deplaatsen voor ons doel onbruikbaar is, 
n.l. de plaats boven R22. Het laagste bereikbare getal is dus 3e. De re- 
den hiervan is de volgende. De laatste handeling bij het intypen van het 
programma'tje (zie boven) was het indrukken van de returntoets, Nu is het 
zo, dat na elke reset (break) of returntoets de lijn nr.0 aan pin 1 van 
IC 7445 naar OQ gaat, Via deze lijn trekt het indrukken van de ESC-toets 
de bit 35 van IC 8255 naar 0, wat dan weer een lopend program onderbreekt 
en de cursor teruggeeft, Precies hetzelfde gebeurt als we boven R22 een 
schakelaar aanbrengen die eveneens bit 5 naar O zou trekken. ben schake- 
laar op die plaats zou âus elk spel onderbreken, wat niet de bedoeling is. 


Als bruikbaar houden we dus over 7 schakelplaatsen n.l. S17 (boven K17), 
S18,519,520,521,523 en S24 waarvan elk afzonderlijk of gecombineerd ze- 
bruikt, een ernduidig getal geeft op geheugenlocatie #B0O1, direet uit- 
leesbaar. 

Hakkelijker kan het al niet. En sneller óók niet, want schakelen op deze 
plaatsen heeft voorrang doordat het in feite buiten de matrix om gaat, 
Dit is dan ook de reden dan Control, Shift en Kept, déár schakelen. 


Omdat de schakelaars uiteraard niet in de matrix worden gesoldeerd, maar 
buiten de kast in de joy-stick, moeten we -het beste aan de weerstandjes- 
draadjes solderen en verbinden met een stekkerbus aan de zijkant van de 
kast, Voor dit doel zijn schitterende stekkers met chassis-deel te koop 
van het merk HIRSCHMAN type KEB-10 (10 polig). 

Beginnen we nu te onderzoeken aan het andere einde van het verhaal, dan 
blijkt de ATARI-joy-stick bijzonder goed in onze opzet te passen. In 
Acorn Nieuws 4 werd een schema'tje getekend van het printje in deze joy- 
stick. Er kunnen 1,2 of 3 schakelaars tegelijk worden ingedrukt, bv. 
DRUKKNOP + BOVEN — RECHTS. Er zitten dus 5 schakelaars aan, boven, onder, 
rechts, links en drukknop. Met die 5 schakelaars ontstaan 9 mogelijkheden, 
n.l. 5 richtingen + drukknop. 


Van de 7 mogelijke schakelplaatsen in de matrix moeten we er nu 5 kiezen, 
Er zit niet het minste verschil in. Kiezen we derhalve maar voor de vuist 
weg S17,818,519,520 en S21. Op het toetsenbord houden we dan nog Shift en 
Control over, 

Ook in de joy-stick maakt het technisch niets uit welke poort-lijn aan 
welke schakelaar komt. Kiezen we ook maar voor de vuist weg: de DRUKKNOP 
wordt S17 LINKS wordt S16 ONDER wordt S19 RECHTS wordt 520 en 
BOVEN wordt S21, 


Op deze wijze heb ik een ATARI-knuppeitje aan de Atom gesoldeerd en we 
krijgen dan op de locatie #BO01 de volgende getallen: 





a) Zonder ingedrukte drukknop is het getal altijd oneven, Met ingedrukte 
drukknop altijd even, u EN 151 

id s 
b) Zonder drukknop geven de acht ed) Lore) 


richtingen van de joystick de 


volgende getallen. Mét drukknop 155 ruf 
alles één punt minder: CD (-#) 
tug 2us 
Men krijgt deze getallen bij deze GE 154 Cz) 
richtingen wanneer van het ATAkI-snoer (-u) 


de oranje draad verbindt met R17, de groene draad verbindt met K16 

de blauwe draad verbindt met R19, de bruine draad verbindt met R20 

de witte draad verbindt met R21 en de zwarte draad met 0 volt van het 
board, 

Bij een ander knuppeltje dan van ATARI kunnen de draadkleuren die bij be- 
paalde schakelaars horen wellicht anders zijn. Dat doet er niet toe als 


we er maar voor zorgen, dat bij de drukknop en bij de richtingen van de 
knuppel dezelfde getallen ontstaand als volgens het tekeningetje. 


tt Wanneer we in de club de zaken op deze wijze standariseren wordt net 
mogelijk om bestaande programma's naar deze joy-stick om te schrijven en 
ervoor te ontwerpen en deze in net archief op te nemen!tt 


Nog één praktische hint: Let er vooral op, dat ae draadjes aan de goede 
kant van de weerstandjes gesoldeerd zitten. De verkeerde kant is, waar ze 
allemaal aan ie +5 volt zitten. Zou kortsluiting geven! 


Met het ATAKI-knuppeltje aangesloten, zoals hiervoor omschreven, kunnen 
we reeds meer op het gebied van behendigheidsspelen als momenteel moge- 
lijk is in bestaande spelen. We kunnen bv. een keeper zijn doel laten 
verdedigen tegen random afgeschoten ballen. In & richtingen kan de doel- 
man op de bal toelopen, dan stoppen, dan drukknop ín en dan âe bal in & 
te kiezen richtingen wegschieten. Enz. programmeurs kunnen hun gang gaan! 


Het aansluiten van twéé knuppeltjes kan principieel op dezelfde manier en 
aan dezelfde schakelaars. Dezelfde leidingen vanaf de weerstanden R17 t/u 
R2t moeten dan óók naar een 2e stekkerbus en daar komt de 2e joy-stick 
aan, Alleen met de retour-leiding van de @ joy-sticks moet u verschillen- 
de dingen doen. 

In het verhaal over de le joy-stick hebben we de retourleiding vanaf de 
doy-stick (zwart) aan O (Aarde) van het board gelegd. We kunnen die re- 
tourleiding echter óók verbinden met pin 1 van IC 7445, dat is de boven- 
ste horizontale leiding van de toets-matrix, Let op: die } zelf heet 
0, Ots knuppeltje werkt dan even goed zolang IC 26 die lijn maar aan 
‘aarde! houdt. We hebben gezien dat ait het gevel is na elke 'reset', 
'break','run! enz, Op elk moment binnen een programma kunnen we die lijn 
O naar ‘aarde! brengen door (in basic) 10 ?#B000=0. 

We kunnen dit zonder enig soldeerwerk controleren door in te typen: 








10 ?{B000=0 (leg IC 26 lijn O aan O) 
20 P,2#B001 (lees inhoud loc.BO01) 
30 G.20 (blijf dit doen) 
RUN Drukken we op toets 3, dan verandert de 255 in net getal 
253. Dat is het zelfde, wat de joystick doet bij naar links bewegen. 
Typen we nu in: 10 ?/BO0O=1 (leg IC 26 lijn t aan 0) 

20’ FP, ?#ROO1 (lees inhoud loc.BOO1) 

30 G,20 We zien weer reeksen van 255. Toets 3 


doet nu niet meer, In de plaats daarvan krijgen we nu het getal 253 door 
indrukken van de toets nr. 2. Deze toets zit op dezelfde plaats als 51ò 
maar nu met de retourleiding naar de iijn nr 1 van IC 26, dat is pin 2. 


det practische soldeerwerk: 

Als we de computer op z'n kop leggen met de toetsen naar ons toe en we 
schroeven de bodem eraf, dan zien we de weerstandjes R17 t/m R21 in een 
groepie bij ejkaar staan. Kies voor de aansluitingen de în hiernaast 


BEST staande tekening zwart gemaakte aansluit- 
punten, Het beste en het netste gaat dit aan 
Ce “eo de ANDERE kant van het board. 
Ge: ie 5 Dit zijn dus de 5 signaaldraden 517,S18,519, 
bp 520 en 521 aan de weerstanden K17,RIB,R19, 
de 0,9 R20 en R21. 
p] De andere kant van alle weerstanden zit aan 
of +5 volt. 
@ ) 6) Mooi werk krijgt u door eea. uit te voeren 
é had met een stuk zg. regenboog flat-kabel. 


Houden we rekening met de toekomst en gaan we nu reeds zo ‘universeel! 
mogelijk te werk, dan gebruiken we deze 10 aderige regenboogkabel en de 
19 pen’s HIRSCHMAN stekkers. Van deze kabel verbinden we draed 1 t/w 5 
(bruin,rood,oranje,geel,groen) aan de stekkerpennen 1,2,3,4,5 en aan 
resp. R17,18,19,20,21. Daarna de draden ù,9,10 (grijs,wit,zwart) aan 
resp. pin 2 van IC 7445 (26), pin 1 van IC 7445 en zwart aan 'aarde' van 
het board. Aan de stekkerkant komen deze 3 draden dan aan de middelste 

3 pennen van de stekker, dus de pennen 8,9 en 10. kr zijn dan 2 draden 
én 2 stekkerpennen over waarmee u later naar wens retourleidingen (voor 
meer joy-sticks) of meer sehakelfuncties per joy-stick wilt uitvoeren. 


De retourdraad naar 'aarde!' gebruikt u als u alleen maer programma's ge- 
bruikt voor één joy-stick, Zo aangesloten werkt het program het snelste, 
Gebruikt u echter de draad wit als retourleiding naar pin 1 van IC 7445 
dan werkt zo'n programma zonder enige wijziging. Het 'uitlezen' gebeurt 
dan echter een fractie van een sec. trager en even snel als het uitlezen 
van de 2e joy-stick, waarvan de retourleiding via de grijze draad naar 
pin 2 van IC 7445 gaat. Bij twee (digitale) joy-sticks blijft dus de 
zwarte draad naar ‘aarde' ongebruikt. We kunnen deze dan evt, later ge- 
bruiken als massadraad bij aansluiten van ‘analoge! joy-Sticks tesamen 
met +5 volt op een van de resterende draden. 


STANDAARDAANSLUITING JOY-STICKS aan ACORN-ATOMm. April 1952, 
G.Borghaerts. 


Routines en disassemblers 


Inkey faciliteit. KEEK 
Vit Practical Computing 10/51. Een INKEY-faciiiteit die met een enkele 
Basie lijn te verkrijgen is: 

{815 KEA 2O KITA TIG KIOAPENK 2 Ze ÂOA KA HD KD HO als subrou- 
tine aan te roepen met LINK#01 De toets is te vinden door Feeken op 
locatie #80 of te benoemen met bv. K=7#80 





Input routine, KEEKEEEE 
U wilt een overal in te zetten INPUT-routine, die alleen digits accep- 
teert? 1 P=fxxxx;DINLLO;C;:LLO JSRÉFKS4;CMPES3O0;BMI LLO 

2 CMPEÉZA;BPL LLO;JSRAFED2 ; ADCOACH ; ST AÉGOGRTS ; F5 END 
Aanroepen met LINK#xxxx, het resultaat vindt u op #90. Wilt u het resul- 
taat niet op het scherm, verwijder dan JSRÁFE52 


PIND/TOOLBOX aan/uit. “EIND"  *TOOLBOX" EEEEEXE 
Twee programma's, van A.Marchal, bedoeld om FIND en TOOLBOX in een pro- 
gramma te gebruiken, 


Hexdump met ASCII. “HEXDUMP"* EEEXEXEX 
Programma, ingezonden door Bram Poot, geeft een hexdump met ASCII karak- 
ters. Het is geplaatst op #E000 t.b.v, de schakelkaart. Kan ook elders. 
Het programma kan ge'link't worden met LINK#KBF9, na toevoeging van de 
7 laatste bytes, b.v. met de monitor van Roel Heuvel, ?#PE=7 i.p.v. 10 
bij gebruik van een EPSON-printer, 


Automatisch regelnummering. "AUTO REGELNR" KEEEEER 
Sinds ik de Acorn Atom heb, irriteer ik me er telkens aan dat bij het 
intikken van programma's ik zelf de nummering moet bijhouden en ingeven. 
Dat kan de computer zelf veel beter, Het eenvoudige routinetje dat ik 
daarvoor maakte laadt men in een stuk geheugen met een hoog adres, bv. 
#8200. (Pointer op adres 18 aanpassen, NEW ingeven en laden.) Na 'RUN' 
vraagt de routine om een tekstgebied, Geef in de eerste 2 posities van 
het adres, dus #29 voor {2900 enz. Daarna wordt gevraagd om het eerste 
regeìlnummer en de stappen voor verhoging. Bovendien wordt standaard in 
de eerste regel kommentaar geplaatst (programmanaam). Het 'END' hoeft 
niet zelf te worden ingetypt. Heeft u alles ingetypt dan ís een simpele 
RETURN genoeg om het programma te stoppen. De routine genereert een 
'END', en zet de pointer op adres 18 op het tekstgebied dat u zojuist 
gevuld hebt. Tik zelf nog even END om de 'TOP*-pointer aan te passen, 
JeH.Man 

Mirakel. PIRAKEL" N KEEKEEENE 
Het programmaatje 'MIRAKEL' is in feite een gewone disdssembler die 
snel en correct functioneert, Deze disassembler maakt -in tegenstelling 
tot sommige BASIC-programma's= een duidelijk onderscheid tussen absolute 
en zero-page adressing-mode (neem bv. de instructie LDA#52,Y. Dit is 
géén zero-page instructie en wordt dan ook afgedrukt als LDA#0052,Y). 

De uitvoer is in de uitgebreide versie te stoppen en te onderbreken met 
behulp van de ESC-toets. Tot zover ís er eigenlijk geen reden om dit 
programma de naam ‘MIRAKEL' mee te geven. Het programma heeft echter 
nog een bijzonderheid: in de geassmbleerde basis-versie gebruikt het 
slechts 243 bytes. Deze waarde is inclusief de data-tabel aan het eind 
van het programmaatje. 
In de basis-versie is het 





rakel een subroutine die volledig zelfstan- 


dig kan functioneren en als zodanig een zeer krachtig hulpstuk VOOr Sé 
bruik in basic- of machinetaal programma's. By. ty=#C2503DO LINK LL1; 
UNTIL 0 hierin is V net adres voor 4 opeenvolgende ‘vrije! geheugen- 
plaatsen in zero-page (in dit programma is V=f70 gekozen) . 

In de uitgebreide versie wordt het mirakel een complete disassembler die 
toen maar een minieme 255 bytes aan heugen gebruikt. De uitgebreide 
versie ontstaat door toevoeging van: 220:LL0 JSKACSU4S JSK Lul;BhI LLO 








en op regel 340 340... JSRÉPAOEGBNE LL10; PLA; PLA Het mirakel 
werkt nu of van een op te geven start-adres tot een te kiezen eind-adres 
of van het start-adres t/m #PSPF, Bv.  HWefC400C250; LINK LLO Let 


hierbij op de omgekeerde voizorde van start en eind-adres, die hier 
noodzakelijk is omdat ik !V gebruik (! zet de meest linkse byte het 
laatst in het geheugen). Bv. !V=fC250;LINK LO Als u de uitvoer 
heeft stil gezet met de KSC-toets, dan kunt u weer verder listen met 
LENK LLO, !V is dan niet weer nodig, 

Het Hirakel wordt hier gepresenteerd, omdat het door de zéér korte leng- 
te bij uitstek geschikt is voor gebruik in EPROM of cmos-RAN op #A000 
(een nieuw statement misschien?). doals het Hirakel is opgenomen hebben 
we te maken met de uitgereide versie en als u het gerund heeft, verschijnt 
de tekst 'progzram uses 255 bytes! . 

Voor de mensen die het Mirekel als subroutine willen gebruiken nog de 
volgende informatie: De instructie-lengte min één staat op locatie #0. 
De adressing-mode staat op #P in de volgende code: 

Ozimplied (of illegal) 5=zero-page A=(indirect),Y 

1zaccumulator G=imnediate B=(indirect,2) 

2=relatief mnediate C=absolute 

J=zero-page,Y bsolute,Y De(indirect) 

4=zero-paze,i Grabsolute,X E=absolute,Y 

Opgemerkt kan nog worden dat #F niet direkt vanuit basic opgevraagd kan 
worden en dat het Wirakel geen gebruik maakt van de FP-ROKE, waardoor 
het WIRAKEL mogelijk n korter zou werden. Door:Frans v. Hoesel, 











Pass-Cass Routine. EEEEKEEE 
e routine doet wat hieronder is afgebeeld. úe geeft een assemblerlis- 
ing zódanig geformatteerd dat labels op een apart veld worden afgedrukt 
en niet meer tussen de mnemonies terecht komen. Ixzelf heb deze routine 
met het commando 'PASS' (print assembler) opgenomen in de jumper-soft, 
U kunt de rouvine ook 'los' zelf ergens inbouwen, bv. achter slot op de 
ze seuzenkaart, bv. vanaf #706A zoals in bijgaand voorbeeld, U roept de 
routine dan aan met LINK LLO (in dit geval LINKS706A en gaat er weer 
uit met LINK EI1O (in dit geval LINK#TODE). Dit laat u een programma'tje 
doen, zoals (in alg.vorm}: 10 DIM LL1G,55ê 
29 GOS,2;G05, 2; END 








30aP=f, (beginadres) 
40L 
50 (hiertussen de routine 
. intypen in 
901 assemblervorm) 
100 RETURN 
3 706A 
0 706A AC 7D :1LO LDAALLI&AFF 
E] TO6G &D DE O2 STA#2O5 
90 706P A9 70 LDA LLI&AFPPS/256 
90 7071 8D O9 O2 STa#209 
100 7074 A3 OA LDACQ 
109 7916 85 A1 STAÁI1 


100 7075 85 22 STAÉG2 





100 SOA 4C DB G> JEPSCHSE 200 7085 A9 OD : LDA 

110 707D 85 90 :LL1 STAf90 200 TOKT 05 91 StAfIr 
110 707P C9 OA CMP OA 200 TUBI 16 G2 INC#92 
110 7081 DO 06 BNE LL2 210 7083 A5 92 LDA#92 
120 7083 20 B& 70 JSR SS 1 210 TOB Ca 41 CHF rf4 1 
120 7086 4C AB 70 JMP LL5 210 TUBF BO O1 BC5 Lu6 
130 7089 A5 97 :LL2 LDA#O7 210 TOC1 60 KTS 

130, 708B C9 15 CMPY21 236 7OC2 A9 OL :116 LDA2#UC 
140 708F FO OA BkQ LL3 240 70C4 20 52 Fk JShfrLb2 
140 7041 C9 1A CuP-26 240 70CT A9 OO LDA 20 
140 7093 DO 16 BNE LLS 240 70C9 E5 92 STA#92 
150 7095 20 CC 70 JSR SS2 240 79CB 60 ATS 

150 7998 4C AB 70 JMP LLS 250 TOCC AS 91 :552 LDAAIN 
160 705B A5 90 :LL3 LDA#90 250 TVCE DO O1 ENE LL& 
160 7O9D C9 3A CMP HÉ 3A 250 7ODO 60 HTS 

160 709F PO 10 BEQ LL7 260 7OD1 A5 90 :LLé LDA#S90 
170 7OA1 A2 06 LDX26 260 70D3 C9 20 CEP 232 
170 7OA3 A9 20 LDA232 260 TOUS DV O1 BNE LL9 
160 TOAS 20 52 PP :LL4 JSRAPK5@ 260 TODT 60 RT5 

150 70AB CA DEX 270 TODS A9 20 :LL9 LDA#32 
180 7OA9 DO FA BNE LL4 27Q TODA 20 52 FE JSRÁPLI2 
190 TOAB A5 90 :LL5 LDA#90 270 TODD 60 KITS 

190 TOAD 20 52 PE JSRÉFES2 290 TODL A9 52 :LL1O LDA/#52 
190 7OBQ 60 RIS 290 7020 sb UB O2 STA{20b 
195 70B1 E6 91 :LLT INC#91 300 TOp3 A9 Fe LDAvfPb 
195 70B3 DO F6 BENE LL5 300 7OE5 BD 09 Ve STA#209 
130*708D 90 1C BCC LL5 300 TOk5 4C 5B C5 JMPÉC55B 
Enkele nieuwe routines voor de ManitorR.n. EEKEXEEN 


De routines PHXY en PLXY. 

Deze routines zetten de inhoud van het Á- en Y-register op de stack. 
Deze routines worden als subroutine aangeroepen en daarom dient enig 
schuifwerk in de stack te worden verricht. Daarvoor is tijd nodig en wel 
101 macnine cycles ofwel 101 microsee, (bij 1 kra clock frequentie), 

De routine PHXY neemt inclusief de aanroep 131 cycles in beslag en ve- 
bruikt tijdelijk 1 geneugenplaats om de, accumulator te saven. vit is ge- 
daan om ingewikkeld schuifwerk in de stek te voorkomen, De routine zet 
het X- en Y-register op de stacn en laat daarbij de zowel A, X als Y on- 
gewijzigd. 

De routine PLXY neemt inclusief de aanroep 133 cycles in beslag. det et- 
fect .van deze routine is tegengesteld aan FHXY. Het op de stack gezette 
X- en Y-register wordt weer terucgezet en de ACCU blijft Onsewijzigd. 

Om de SWAP routine als universeel bruikbare routine tr veranderen moet 
er direct achter de BNk SWAF1 een RTS gepla-tst worden. wel worden de X- 
en Y-registers vernietigd (of eigenlijk alleen de inhoud ervan (41)). De 
SWAP routine kan in de toekomst eventueel worden aangepast om een wille- 
keurig aantal data bytes te verschuiven. Hierbij moeten de addressen die 
nu 106 en 104 zijn variabel worden en toevevoegd een routine die deze 
adressen berekend, Bij aanroen bevat de Accu het aantal te schuiven bytes 
en het aanroepadres bepaalt de richting. Op deze manier kan op een een- 
voudige manier gegevens tussen een subroutine en het hoofdprogramma wor- 
den uitgewisseld, zonder dat er vaste geheugenplaatsen gebruikt hoeven 
te worden. Het is wel verstandig om de gehele pagina t als stack te re- 
serveren, dus de input en stringbewerkings buffers vernuizen naar ergens 
anders, 

Nog een opmerking over de Atom saĳlt: deze basic maakt sleents beperkt 
gebruik van de stack en reset de stackpointer gereweld. 





SAP 


SWAP 


TSX Pakt 
LDA 2402 er moet 2 maal 

FHA geschoven 

LDA#0 106 ,X 

LDY#0104 ,X 

STAÉO104 „XK 

TYA 

STAÉO106,X 

DEX PLXY 
PLA 


580 #O1 

BNE SWAP1 

LDA#O1046,X restore Y 
PAY 

LDA/O107,X restore X 
TAX 

RTS 


STA ASAVE 


TYA 
PHA 
TXa 
PHA 
JER 
LDA 
RIS 
STA 
JSR 
PLA 
TAX 
PLA 
TAL 
LDA 
KITS 


Roel 


SWAP 
ASAVE 


ASAVE 
SWAP 


ASAVE 


Heuvel 


save A 
push Y 
push X 
restore A 
save A 
pull X 
pull Y 


restore Á 


TOELICHTING OP DE MONITOR. RH. 

DEELT 
{bandje 6 in het Clubarchief) 
ALGEMEEN : 
De monitor gebruikt de dubbele punt (:) als prompt. (I.p.v. de > in BASIC) 
Bij het verschijnen van de : verwacht de monitor een opdracht, Een op- 
dracht bestaat altijd uit 1 letter of letterteken, dus bv. een L of een 
M of een + etc. Wil man de opdracht toepassen op een adres, dan typt men 
na de : eerst dat adres in, gevolgd door de opdracht, Alles zonder spa- 
ties, En hetf# teken. In de navolgende toelichting wordt AAAA gebruikt 
voor AANVANGSADRES en EEEE voor EINDADRES en DDDD voor BESTEMNINGSADRES 


(Destinationr) P Pace smsen 
VOORBEELDEN : 
== L == De opdracht L geeft 15 regels machinecode-instructies vanaf het 


opgegeven adres. (Aangenomen natuurlijk, dat op het opgegeven adres een 
machinetaalprogramma staat, dat u wilt bekijken en/of veranderen.) 
zAAAAL (ret) 
Voorbeeld: 
:C2B2L (ret) 
C2B2 A9 29 LDA A#29 
C2B4 85 12 STA #12 
C2B6 A9 OD LDA 2#0D 
enz, 15 regels. 
(Voor de betekenis van de MNEMONICS LVA, STA enz, zie MANUAL blz. 141 en 
verder, Zie ook CURSUS ASSEMBLER en ACORNSOFT programma PEEKO-COMPUTER. ) 
De 15e regel van het voorgaande voorbeeld van de L (List) opdracht wordt: 
C2CC BD 21 03 STA #0321 


Door nu achter de : alleen L in te typen, volgen de volgende 15 regels. 
Dit kan men blijven herhalen, 
CONCLUSIE: Het commando L geeft een diaassembler, pagina na pagina. 
== G -- Met de opdracht G kan men naar een machinetaal programmâ springen 
Op de zelfde wijze als dit gebeurt met LINK in BASIC. En net als met 
LINK start G het machinetaalprogramma, Als voorbeeld kiezen we het Da- 
chinetaalprogramma OSCRLF met als startadres #PFED. (Zie Manual hoofd- 
stuk 25.) Deze routine volgt normaal op het indrukken van de returntoets. 
Met het aanroepen van deze routine, gevolgd door het indrukken van de 
returntoets, gebeurt dit dus TWEE maal, Let Op! - 
Voorbeeld: 

:FFEDG (ret) 


Er zijn dus TWEE regels overgeslagen. Men noemt dit 2 LINEFLEDS. 


== P == (P van Processor-register.) het deze opdracht verschijnt de in- 
houd van alle praocessar-registers, 
:P (ret) 
Voorbeeld: 
:P (ret) 
PC A X Y S P NV BDIZC 
C2B4 29 00 05 FB 3D 00110101 (U kunt ook andere waarden krijgen.) 


Toelichting: De PC op de eerste regel betekent PROGRAM COUNTEk. Na uit- 
voering staat de PC op C2B4. De A staat voor het ACCUMULATOR-REGISTER 
(normaal ACCU genoemd) en is geladen met #29. X en Y zijn INDEX-REGIS- 
TERS van de 6502. De 5 staat voor STACK-POINTER. Een soort ‘prikpen' met 
notities van door de 6502 te onthouden DATA of ADRESSEN. De P staat voor 


PROCESSOR-STATUS-RESISTEK. Hierin staan de beruchte FLAG Se. Ze weten 
N(Negatief), V(Overflow), B(BRK-flag), D(Decimale rekenwijze), I(Inter- 
rupt-blokkeerf lag), Z(Als de Accu 0 wordt, dan wordt de Z-flag 1), 
C(De Carry, de '1-onthouden' bij rekenen, u weet wel). 
Wasr dient deze opdracht voor? Wel: de waarden die u met de P opdracht 
afgeârukt krijgt zijn niet de werkelijke (momentele) inhouden van de re- 
sisters, maar copieen die tevoren van deze registers zijn gemaakt. U 
kunt deze copieen veranderen door NU een duboele punt in te typen en 
vervolgens de waarden van de registers zoals u die hebben wilt. De eerste 
ingetypte waarde komt dan onder A, de tweede onder X enz. ken waarde die 
niet veranderd moet worden, dient dus opnieuw te worden ingetypt. Let 
ook op de snaties! 
Voorbeeld: 

:P (ret) 

PC A X Y 8 P HV BDI4C 
3000 DA 03 AO EA 31 00110001 
z:DA PP AQ D5 (ret) 

:P (ret) 

PC A X Y S _ P NV BDI4C 
3000 MDA FP A0 D5 31 00110001 
De laatste P-opdracht drukt dus het resultaat van de verandering af, We 
hebben echter dus de ‘copieen' veranderd. De copieen worden in de echte 
registers teruggeschreven op het moment TUSSEN het geven van de opdracht 
G, 5 en T en de uitvoering van deze opdracht door de computer, 
= 5 -- (van STEP) Met deze opdracht kan men 1 instructie doen uitvoeren 
van een machinetaalprogramma, 

zAAAAS (ret) 
Voorbeeld: 
zC2B28 (ret) 
C2B2 Ag 29 LDA “#29 

PC A X Y 8 PF Nv BDIZC 
C2B4 23 O0 O5 FB 3D 00111101 (U kunt ook iets anders 
: krijgen onder X Y en P) 
Toelichting: De eerste regel kennen we van de L-opdracht, een disassem- 
blerregel, De tweede en derde regel kennen we van de P-opdracht. De Je 
regel is de machinecode-instructie, de 2 volgende regels geven de regis- 
ters weer NA uitvoering van die je regel. U ziet, dat de PC is bijgesteld 
van B2 naar B4 omdat de instructie 2 bytes lang was; de ie byte A9 (de 
OPCODE:'laad ACCU met,,) het 2e byte 29 (de OPERANT), 
=- T -- (van TRACE) Met deze opdracht wandelen we door een machinetaal 
programma om het verloop na te gaan, Dit kan in de PAGINA-MODE wanneer 
Ctrl-N voor de opdracht wordt ingetoetst, gevolgd door returntoets. 
(Geeft geen ERROR.) De opdracht T wordt beeindigd door ESC in te drukken 
en vast te houden tot een volle instructidis afgerond en de dubbele punt 
weer verschijnt. Let op! Bij 2 keer ESC of dender gaat de monitor terug 
naar BASIC. De T-opdracht is een automatisch herhalende STEP-opdracht. 


DEEL2 
Algemeen: Alle monitor opdrachten bestaan uit een letter of symbool, 
waar een hexadecimaal adres aan vooraf mag gaan. De meeste opdrachten 
hebben betrekking op een adres en zullen dit adres ook veranderen. Die 
verandering houdt meestal ‘met 1 ophogen! in, elke keer dat de opdracht 
wordt uitgevoerd, Indien er voor de opdracht geen adres is opgegeven, 
wordt het default adres gebruikt. det default adres is het adres dat bij 
een voorgaande opdracht is achtergelaten. De monitor bewaart meer adres- 
sen, elk met een eizen functie. Deze adressen en hun functie zijn in 





onderstaande tabel weergegeven. 


Program Counter PC (90) 
Adres 1 laatst weergegeven adres A1 (92) 
Adres 2 laatst ingetypte adres A2 (34) 
Adres 3 volgend te veranderen adres A3 (96) 
Adres 4 bestenmingsadres bij K en V AA (35) 
Adres 5 gereserveerd A5 _(9A) 


In de samenvatting van de mogelijke instructies staan de bij de opdrachten 
gebruikte adressen tussen (). De adressen Al, A2, A3, A4 en A5 worden 
door de S en T opdracht als kladblok geheugen gebruikt en hun inhoud gaat 
dan verloren, De copieen van de processor registers volgen op A5. De 4 
bytes na A5 dus niet voor andere zaken gevruiken. Het totale gebruikte 
Z-page bereik loopt van 0090 tot 0049. 

SAMENVATTING MONITOR opdrachten: 

(PC). onse evvevsliet 15 instructies van een machinetaal programma, be- 
ginnend vanaf adres PC. 

(PC)S. Step simuleert 1 machinetaal instructie en laat de in- 
structie voor en de processor registers na simulatie 
zien, 

(PC)T. sees. ves Trace is een doorlopende S-opdracht. Trace is te onder- 
breken door «SC enige tijd ingedrukt te houden, 

(PC)G. enne ene GO springt naar een machineteal programma en zet voor- 
af de processor registers in de processor. 

(AI) .(A3) oo. ve Geeft een hexdump van adres Al t/m adres A3, & per regel 

(AIJ(CR),....... Geeft de inhoud van adres A3. 

(CR)... evens. ooGeeft de inhoud vanaf het laatst weergegeven adres tot- 
dat het adres op 7 of F eindigt. Herhaald intypen van 
(CK) geeft dus steeds de inhoud van de volgende b ge- 
heugenplaatsen. 

CAA)CCAT) (AF). Verplaatst het geheugengebied At L/m A3 naar een gebiea 
dat op A4 begint tot aan (A4+(A3-A1)). 

(A4) (AI). (A3)V..Vergelijkt het geheugengebied Al t/m A3 met het gebied 
AA t/m (A4+(A3-A1)) en geeft de verschillen aan. 

(A3):(A2) (A2)..Plaatst de ingetypte aata (A2L) in achtereenvolgende 

geheugenplaatsen. Bij veel data op de valgende regel 
gewoon verder gaan door :(data) (data) (data) (data) 
(data) etc. in te typen. 

«Geeft de som als 1 byte two's complement getal. 





CAT) +(A3). 











(AT) -(A3). Geeft het verschil als 1 byte two's complement getal. 

Pissanesee v«..De copieen van de processor reg. worden zichtbaar ge- 
: maakt. 

QesuneeeeeevrvererTerugkeer naar het aanroep programma. De monitor dient 


dan wel als subroutine te zijn aangeroepen, Anders ESC. 
COS... Ieder COS commando achter de £ wordt uitgevoerd, zoals 
beschreven in de Manual. 
Enige bruikbare routines: Hieronder volgen enkele bruikbare routines, De 
adressen die bij deze routines gegeven zijn hebben betrekking op een ver- 
sie die op adres 7COO (start) geassembleerd is. (bandje 6 versie en 9). 
INÉoIs 1C53 Geeft 1 regel met een gedisassembieerde ánstructie, incl. 
adres en hexbytes, door INDIS1 en INDIS3 uit te voeren. 
INDIS1 7C00 Drukt de PC af en vervolgt met INDIS2, 
INDIS2 7COD Bepaalt de lengte, plaats in de mnemonictabel en het print 
format van de opperand, Deze routine eindigd met RTS. 
INDIS3 7C56 Drukt de hexbytes van de instructie af en vervolgt met IXDIS4 
INDIS4 7C6D BGrukt de mnemonic met opperand gegevens af en berekent ver- 
volgens de nieuwe FC. De routine eindigt met KITS, 
Tabellen: TWA? index naer tabel TFE6, T#E6 bevat lente en adressering, 


7FF3 printcode's opperand, F155 mnemonic linkerbyte, f#195 mnemonice rechter 
byte, 


Om een overzicht te krijgen in de werking van deze routines, is een ge- 
printe gedisassembleerde listing van deze routines zeer handig. Denkt u 
er niet uit te komen dan doet uw net of u de 6502 bent en gaat volgens die 
listing te werk. Gebruik erbij een 6502 Programming anual, Veel succes 
zet analyseren. Daarbij leert u uw eigen programma's te schrijven, Leg 
eens een verzameling van universeel toepasbare routines aan. 4e kunnen 
overal vandaan gesuffeld zijn. ROEL HEUVEL. 


Uitbreiding van de BASIC INTERPRETATOR 
"BASIC UITBR" EREIS 

De Atom basicinterpretator is opgebouwd uit een aantal min of meir zelf- 
standige routines, die een enkel BASIC commando kunnen uitvoeren. 
Deze routines worden door de Basic interpretator opgeroepen, als een bep, 
statement (bv. 'POR' of 'UNYIL’) herkend is m.b.v, een tabel waarin alle 
voor Basic bekende woorden zijn opgenomen, Deze tabel staat in KON vanef 
adres #CO0O, Deze tabel is, omdat hij in KOi staat dus niet zomaar uit te 
breiden, Er is echter een leuke truc mogelijk: kan de Basic interpretator 
een bep. woord niet vinden in de tabel (bv. UNTOL), dan wordt er een 
software interrupt gegeven, een BRK instructie, 
Wat doet deze BRK nu precies? 
Allereerst wordt de programcounter van dat moment op de stack gezet, en 
daarbovenop het statusrezister van de b502. Vervolgens wordt op adres 
#PPFL en #PFFF gekeken waar de INQ/BRh HAUDLsk staat, In het geval van de 
Atom wordt er naar adres #PFB2 gesprongen. Daar wordt na enig testwerk 
(zie ook Atomic Theory & Practice) de opdracht JuP#0202 uitgevoerd. Op 
deze plek staat normaal het adres van de BkLAKHANDLER, te weten #C9Do 
(kunt u het nog volgen?), Dit adres op ,#U202 kunnen we gemakkelijk ver- 
anderen in het adres van onze eigen BRKAKHANDLEK. 
Het idee is nu als volgt: 1)BASIC ontdekt een fout 

2)kr wordt een BEK instructie uitgevoerd 

3)PC en PS van de 6502 komen op de stack 

4)kr wordt gekeken op adres #FPFL & #PPFF 

5)De IK/BRK handler springt naar (#0202) 
Het adres op positie #0202 en {0203 hebben we vantevoren veranderd in net 
startadres van onze eigen BREAKHANDLER. We vangen als het ware de fouten- 
situatie af om te zien of wij nog wat kunnen maken van de voor BASIC on- 
begrijpelijke statement. Begrijpen we net (uitbreiding van de BASIC!!) 
dan voeren we het gewenste commando uit en anders kan er altijd nog naar 
de standaard BREAKHANDLER teruggesprongen worden. 
Hoe weten we nu wat BASIC niet heeft begrepen? 
De locaties #0005 en #0006 geven het begin aan ven het laatste te inter- 
preteren statement. Locatie #0003 geeft aan hoeveel karakters er vanaf 
{0005 zijn bekeken voordat de BASIC er niets meer van begreep en een Bli. 
instructie genereerde. De nieuwe BREAKHANDLER zal nu vanaf deze positie 
moeten zoeken (eventueel m.b.v. een tabel) naar een voor hem bekend sta- 
tement. Wordt het statement herkend, dan moet het uitgevoerd worden. Ve 
locaties {0005 en {0006 moeten daarna verhoogd worden tot op de positie 
van de eerste punt-komma of 'CR', Is al dit werk eindelijk gedaan dan 
kan er teruggesprongen worden naar de BASIC die net werk verder mag op- 
knappen. 
Er kan echter niet zomaar naar vast punt in de BASIC terupgesprongen 
worden, want BASIC kan vanuit verschillende situaties een BhK instructie 
uitvoeren, Bijvoorbeeld: 10 FOR Az=l TO 10;FIEPsNLZL A 

20 B=143a(4+FAC(5)) 

30 END 
In regel 10 wordt een BRK instructie gegenereerd dasr FIbF een voor HASIC 
onbekend ‘statement! is, maar in regel 20 wordt een BRK gegenereerd om- 
dat FAC voor BASIC een onbekende 'functie' is. 
Bestaat er geen uitbreiding voor het statement 'PILP' of de functie 'FAC? 
dan wordt een foutmelding gegenereerd, Een uitbreiding voor 'PIEF' moet 
na interpretatie terugspringen naar dat gedeelte van SACIC wat een nieuw 
statement interpreteerd. zen uitbreiding voor 'FAC' meg dat niet doen, 
daar het huidige statement nos niet beeindizs is. &r moeten nog 2 optel- 





insen cedaan worden, 


Als start maken we 
lingen maken in de vorù van 
Deze uitbreidingen kunnen alen 









Or dese roeitre staat CS5B: JSR #C4E4 
LDY AUG 

C55D: Iva (#05), 

CHEF: Chr A34 

C5át: Bilk #CSTD 

553: PP {CAB 

In wvoutine £C4E4 wardt meteen gekeken 


ja dan wordt er naar #C2CF 
mek te maken wat daar gebeurt, 





terzreteerde statement aangeeft, 


aâr wat nu te 
maken? 
Bijvoorbe: ld: 





10 BLa SLA BLA 
2 ENU 

Niets aan de hand, 
standaard SREAKHAE 
In de 'PhUGRAdusR 


Nek en dik 
TOULSOK! 

















men. Dit i : 

SREAKHANDLE} 

PLP ‘haal de PS en 

FEA le loawbyte van de FC 
PHA seven van de stack en 
PEP sherstel alles weer, 





aar gebruik de 

als error nummer 
:hzel het Y-re2 weer or 
stilter na alle spaties 





iis Het ern spatie? 
snee,begin van woord 








za verder 
szet nu {ZS en ff 
sop het bezin van 
{3005 shet te interpreterer. 
f20L5 waor 
f0006 5 
#0C: N 
TA A5006 : 
DY -#00 vinitialiseer 


STY INDEX :adres tabel index 


svan woorden tabel 








welke letter is het? 
sstaat hij in de tabel? 
sia,Srrine weg 
struukje,wardt straks 
suitselegd! 

stoeh zevonnen? 





gesprongen, 
De enige voorwaarde die gesteld wordt aan 
Sprong naar #C55% is, dat locatie {3 het einde van het zojuist gein- 
gerekend vanaf positie (#0005). 

Zoen ads de vatdrerding er OOK niets zinnigs 


we springen dan gewoon naar positie #C9Ds, 
zoekt het verder wel uit. 

van Program Power staat een pracht van eén 
AKHANDLER die we met een paar Kleine aanpassingen zo over kunnen ne- 





een vermeniavuldiging én een assignment ("8='). 
net niet al te snoeilijk en zulien we alisen uitbrei 
‘statement! 
de BASIC 





uitbreidingen, zoals 'PILF'. 
weer inspringen op positie #C55ú 











1A5,A6 mm eerste ';' of CR 
kijk of er eén ';' aat 
Ys 
snee, nar nieuwe regel 
Ì nterpreteer maar weer 
of de :50-tasts 25 iegsedrukt, en zo 


mar daar hebben wij niets meer 


van weet te 


dit is de 


Bq OK? zja, spring weg 

LDá PABEL,X szijn we al aan het 
CEP 2£7E zeind van het woord 
Et3 EIND2 sja,gevonden! 

SCG OKT znee, doorzoeken 

LUA (#05),Y sis het woord soms 
CP TL vafgekorten.n 

Bea bitdi ijasen 't is herkend 


zijn we aen-het eind 
van het woord? 

dek sja,volgend proberen 
suog niet afgelopen 
sverder zoeken 


LeA s2ljn we al aan het 
LA TABLL,X seind van de 
CUP à SFF ;woord tabel? 








LE) POT ja,en niet gevonden 
INC INDEX volgende poging 
LDY «0D sopnieuw woord bekijken 
Bij ZOEKTAB sin de tabel 

OK: 

Tux svalgende karakter 
DEX sbekijken 

BNE ZOEKTAK sin de tekst en tabel 
EIND ; 

IN woord gevonden 
LINDA; 

LDX INDEX ;haal nr, stat, op 


IDA AERTBL,X ;lowbyte van adres 


STA #00D2 ‚en highbyte ophalen CMP < #0D seinde regel? 


LDA ADRTBH,X ;en wegbergen als BEQ KLAAR ;ja,klaar zijn we 
STA #0053 ssprongvestor CUP «#3B sia het een *;* 

STY {0053 :Y-reg veilig stellen BNE FOUT nee,dat is fout 
JSR INPERP voer statement uit KLAAR: 

LDY #0003 zhaal Y-reg weer op LDX 2/rF smaak stack schoon 
DEY H TXS sanders loopt hij over 
FILTSP: JMP #C558 sterug naar BASIC 
INY spositie verder INTERP: 

LDA (#05),Y sen zoek naar JMP (#0052) svoer statement uit 
CMP ‘@Á20 sniet spatie FOUT : 

BEQ FILTSP sverder zoeken JMP #CODE snaar fouthandler 


De tabel waarin de nieuwe woorden staan is als volgt opgebouwd (van 
achteren naar voren!!!): 1) Het betreffende keyword 
2) Een byte met inhoud #7F 
3) Aan het eind v/d tabel een byte AFP 
Een keyword in de tabel is opgebouwd uit 2 gedeelten, een significant ge- 
deelte, en een niet significant gedeelte. Dit is gedaan om eventueel key- 
words te kunnen afkorten. Willen we bv. het keyword "PIzP" af kuanen kor- 
ten tot min, “PI,”, dan stetí: het signìficante gedeelte van het keyword 
de ASCII code voor “PI" en ín het niet significante gedeelte de ASCII co- 
de plus #7F van "EP", Het ziet er dus als volgt uit: 
P I E P 
#50 #49 #C4 ACF 
Als het keyword "PIEP" het eerste element zou zijn, dan moeten de eerste 
elementen van ADRTBH en ADRTBL het HIGHSYTL en het LOWBYTL van de routine 
bevatten die "PIEP" uitvoert. Deze routine dient netjes met de opdracht 
“RIS” terug te keren naar de BRLAKHANDLER (zie listing). 


De boven beschreven methode om de BASIC interpretator uit te breiden is 
niet geheel 'foolproof'. Beschouw bv, het volgende onzín programma: 

19 PIEPERTJE=123 

20 END 
De uitbreiding herkent het keyword “PIEP” en voert dit trouw uit, maer 
komt dan tot de conclusie dat "ERTJE" niet iets zinnigs voorstelt en 
geeft weer een piep, maar nu een met “YRROR zoveel" erbij. haar ja, wie 
bedenkt er nu zulke kolder? 


In het begin is even terloops gezegd, dat de vector op #0202 en #0203 
veranderd wordt door ons om de uitbreiding er in te kunnen linken. Dit 
heeft echter nog wel wat voeten in de aarde, Probeer maar eens: 

1LO2O2e PEPE (ret) 

P.&!#0202 

Mooi niet gelukt?:?! Dit rare verschijnsel is te verklaren, doordat de 
BASIC na het inlezen van een (CR) (240) terugspringt naar het begin van 
de interpretator en daar de BREAKVECTOR weer terugzet op #CIDE. Dit is 
een schoonheidsfoutje van de Atom vind ìk, Dus zullen we, willen we de 
BREAKVRCTOR veranderen, de OSCHRD routine moeten veranderen. Het adres 
hiervan staat in #020A en #O20B (hier blijft de Atom wel met z'n vingers 
vanaf), De nieuwe routine moet nu dus steeds als er in "direct mode" een 
(CR) gelezen is, de BRKAKVECTOK veranderen en ietsje verder dan het begin 
van de interpretator terugspringen. Het constateren of er in "direct 
node” gelezen wordt gebeurt m.b.v. de stack. Als n.l. in "direct mode" 
gelezen wordt, gebeurt dit via #CDOF (de line editor) en #FFL6 (USECHO) 
De line editor wordt opgeroepen in het begin van de BASIC interpretator 
op adres C24X (het lowbyte is niet van belang). Als nu 6 posities verder 
op de stack de byte "C2" staat moet er door de nieuwe OSCHEU de nieuwe 





CTOR geïnstaleerd worden, als er een (CR) ingelezen is. (Sorry als 
het wat onduidelijk is.) Dit is de nieuwe OSCHRD: 





OSRDCHK: JSK #FE94 slees een character 
CUP :#OD zis er een (CR) gelezen? 
BNE KLAAR nee, niks aan de hand 
TSX shaal de stackpointer op 
LDA #0106,X ;kijk of opgeroepen door BASIC 
CEP … #C2 ; 
BEQ INSTALL ;20 ja, spring weg 
LDA s#OD ;zet accu weer goed 
KLAAK: RIS zen terug naar calier 
INSTALL: LDA >#OD :zet accu weer goed 
STA #0100,Y :(CR) in invoerbuffer 
EDX „#00 H 
SPX #0007 ;zet count op nul 
STX #0001 ;idem met regelnummer 
STX #0002 H 
STX #0005 szet interpretator op de 
IEX sinvoerbuffer 
STX #0006 H 
LDA 3RKAL sverzet BREAKVECTOR 
STA #0202 sLlowbyte 
LDA BRKAH zidem met het 
STA #0203 shighbyte 
JSR #PEFD snaar de nieuwe regel 
JMP #C2EA sen naar begin van BASIC 
Nu dan eindelijk de uitbreiding PPIEP": 
PIEP: LDX +Á90 zinit, Loop 
STX #OOES sset delay loop 
LDA #B002 ;speaker byte 
LOOP: LDY #OOKS ;start delay 
H DEY id 
BHE DELAY ;delay 
EOR #04 ;toggle speaker 
STA #B002 H 
DEC #OOE5 sverminder delay 
DEX sal klaar? 
BNE LOOP ;nee 
RTS sen klaar 


Koz enige opmerkingen: 
Met het boven beschreven “frame” zijn al een groot aantal uitbreidingen 
mogelijk. Denk bv, aan "PRON" en "PROPF" om de printer aan en uit te 
zetten ete, Ken nadeel is echter, dat er nog geen argumenten overdracht 
is, bv. “PIEP 3" om gorie piepjes te laten klinken, Geen probleem, 
Als een uitbreidings routine een getal verlangt, dan kan er naar de sub- 
routine #C78B gesprongen worden, waar na terugkeer in de locaties #16,X 
= #25,X - #34,K en #A3,X het vier byte integer resultaat staat. De loca- 
ties #03, #05 en #06 (zie terug) moeten dan wel naar de goede plek wijzen, 
Voor de TOOLBOX mensen kan de uitbreiding beter naar #Alkö terugspringen 
als er een fout ontdekt is, i.p.v. ÉCODB, anders worden alle TOOLBOX 
statements als etn fout gedetecteerd! 
det programma kent al het nieuwe statement “PIEF”. 

Jos dorsmeier. 


De JUMPER: PJUNPERSG EEEEE 
)P.&?16 Dit is geen ingetypte vervalsing: det is Exact wat 


29) ZING wijn (GeBorghaerts) Atom momenteel doet als je ìn- 
HOLADIJEEt typt wat in het v‚b. na de prompt ingetypt werd: 
HOLADIJ EL! a) de vraag: in welke tekstspace zitten we 
HOLADIJEL* b} een opdracht 
HOLADIJEE! c) dezelfde vraag als a 
HOLADIJE EL! Het gaat hier óók niet om een "statement" zoals in 
)P.&? 16 vorige blz. behandeld door J.Horsmeier, met als 

29» voorbeeld "PIEP"”, Nee, beste clubgenoten, het gaat 


om Dh JUMPER van F.BOUKA. ten betere naam heb ik 
zogauw niet kunnen bedenken, Waarom die naam? 
Wel; het voorbeeldje heb ik met opzet misicidend gemaakt, Het lijkt alsof 
het hele gezang zich afspeelt in de tekst-space {2900 maar dat is nu nét 
niet het geval. Er wordt als een gek is de ATOM rondgesprongen. ret gezang 





staat helemael niet in het 'lage' geheugen,‚maar in het 'hoge! heugen 
>21B=#82 (kan ook anders).Kijk maar: 
> Het gezang staat, in dit v.b., dus in de 
>L. ruimte #ĳ2xx. kn u ziet dus, hoe na af- 
5 P‚I=1 TO 5 loop van het gezang in basic wordt terug 
10 P‚" HALADIGd EE! gesprongen naar de ruimte #2Oxx, 
15 F.' Daarmee is een deel van de truc opgelost. 
20 N, Blijft de vraag: roe kwamen we in #b27 
25 218=#29 U vermoedt het al: met de jumper van 
40 END Bouma. 
D) Het "hoe en wat' vereist enige toelich- 
\P.&?18 ting, ik zal mijn best doen. 
ge) Wanneer de Atom een opdracht krijgt, 
,RIUN gaat hij op zoek waar nij die opdracht 
HOLADIJE NN! vinden kan en, zo ja, wat ermee gedaan 
HOLADIJEE! moet, Vindt hij die opdracht nergens, 
HOLADIJLEeE! dan komt er uiteindelijk een ERROR 94. 
HOLADIJEE! Kort geformuleerd wordt eerst in de 
HOLADIJEE! “standaard KOk's gezocut of daar die 
> opdracht te vinden is. Zo niet, bv, bij 
>P.&?18 de opdracht "FLOAU', dan wordt in de 
29) Floating Point gekeken, FLOAD staat daar 


wel in en die opdracht is uitvoerbaar. 
Als de opdracht óók niet in de #.P. wordt gevonden, wordt verder gekeken 
of er in socket van 1C24 een KPROM zit met de inhoud #40 en #BF op de 
plaatsen #A000 en #A001, In dit geval, dan wordt er verder in HAKXX ge- 
zocht, Was de opdracht 'kDIT' en zit in 1C24 de word Fack rFKOE, met 
daarin het woord KDIT (en wat verder te doen) dan zijn we weer klaar. Áo 
niet, bv, met de opdracht “PIKP" dan gaat de Atom op weg naar de kRKOk- 
HANDLER., Dáár vangt Jos de zaak op en maakt er alsnog een voor de Atom 
uitvoerbare opdracht van, een STATEMENT welke als zodanig precies als elk 
‘gewoon! statement zoals PRINT,RUN,LIST, etc. te gebruiken en in elk 
programma. Met de opdracht 'LDIT' ligt dit anders. Gebruik je de opdracht 
EDIT, dan wordt naar de EDITOR (Word Pack) geschakeld en niet e.utomatisch 
weer terug. Je blijft dan binnen het EDITOx programma tot je er zelf weer 
uit wilt, bv, met BREAK. 
De JUMPER van BOUMA doet in principe hetzelfde. F.bouma bedacht een truc 
om in een EPROK in IC24, dus in geheugen AGO) een zelf vedacnte opdraent 
te plaatsen die afgevangen kan worden door de stom en waarop dan de na Je 











ze justructie wordt uigevoerd. 

UEPEK precies doet, dat bij eïike zelfbedachte ìn- 
die in WPkOi gezet is binnen #AC90, de TPEKST-POINT ER wordt ge- 
tuura wordt naar de ceheugenruimte, waar het bij deze in- 
t en dit meteen KUNT 










struct 
srepen en 
structie 5 rende programa : 
Seheugenruimtes worden voor de WeKST-POINTEK alleen gedefinieerg door het 
hozere byte; ûus met #23, met #2A, met {ev etc. De beperking van de JUk- 
PER ie derhalve, dat via deze jumper alìeen Hasic-rrogramma's kunuen wor- 
den zeinitieerd, die op een geheel blok van #100 beginnen en vandaaraf 
gerund kunnen worden. &ie ook nog éens het voorbeeld van het Gezang. Dit 
had dus óók op bv. #37 kunnen staan, als de jumper in #LOOD de tekst- 
pointer naar #37 verwezen had, 

Als u t tot zover ne: ft kunnen volgen, zal net duidelijk zijn, dat de 
jumper minder gescnikt is om als statement te gebruiken. Doch daarentegen 
uitnemend geschikt om wer bv. de opdracht "SORT" ergens in een sorteer- 
programma te Suiken en deze te doen runaen. kn aangezien de AK op #A000 
tientallen ‘opdrachten’ kan bevatten en er vele geheugenplaatsen op 00 
eindigen (4 per K) kunnen we met de jumper van Bouma aardig wat doen. 
















Hoe hanteer je nu dit program, Zelf heb ik, voor het gemak, naar 1C24, 
dus ÉAXXX, Een C-MOS IC geadresseerd. Na enìg bijschaven kon met de jum- 
per derhalve rechtstreeks een opdracht-codewoord in #AXXX gezet worden 
met daarin de verwijzìng (in het voorbeeld naar #B2), Het bijgaande pro- 
gramma echter gaat in eerste instantie echter naar de ruimte #JAXX (zie 
regel 50 en 100 van het programma), D.w.z. het gaat met slÔAD naar #3100 
dan intypen oND en dan RUN. Het assembleert aan zichzelf vanaf #3002 tot 
en met #3041, gevolgd door het gekozen codewoord, Bij mij dus ZING. Op 
#3000 zet het programma #40 en op #3001 komt #BF. Op #3042 staat net door 
u gekozen verwijsadres voor de TEKST-POINTER. det program vraagt u de 
gegevens en laat net resultaat keurig Zien. 

Kortom: Vanaf #3000 strat dus geheel precies alles, wat daarna in EPROK 
vanaf #A000 moer staan, Het vrogram geeft zelfs de adressen, die u in de 
conversatie met de ZERO-PKOGnALMER dient in te vullen. 

Koteert u ergens precies de opdrachten en aáressen!! 

wit u later een tweede of zoveelste CODEWOORD toevoegen, dan is het 't 
gemakkelijkst om met het nieuwe codewoord achteraan toegevoegd, alle code- 
woerden opnieuw ên EPROK te programmeren. De programmer overschrijft dan 
recies wat er reeds staat (kan zeen kwaad) en voegt aansluitend het 
nieuwe codewoord toe. U hoeft niet eerst te wissen! oud aus cezelfde 
woorden in dezelfde volgorde aant! 








Dh JUKPER @. EEEN 
Natuurlijk kon het voorgaande niet het eindresultaat van de JUKPER blij- 
ven,door Foppe Eouma werd hard gesleuteld, met het volgende resultaat: 

De Hieuwe JUMPER een nerziening en uitbreiding van de vorige. Bekijken 
we de wogelijkneden van dit program (= &PC.FB) eens. Het program heeft 

T Functies: 

1) jumper naar baste-programma's. Deze functie is identiek aan wat de 
vorige JUSPER deed, Nu moeten echter zowel low-byte als high-byte van het 
start-adres worden opgegeven. De low-byte moet altijd 0 zijn!! Daaraan 
herkent het programra, dat het om de uitvoering van een BASIC-programma 
grat. Dat soort basie-programma!s kan het beste worden afgesloten niet 
met END, maar met het nieuwe statement AC wat ik heb gemaakt (zie file 
KONIDCOH.FR). Het dit staterent Sprint de textspacepointer terug naar 
#29 en wordt eveneens LOP weer correot gezet. 

2) jumper naar rachinetaal-progrämiats. Ook van dit start-adres moeten 
zowel low- als nigh-byte warden opgegeven. ier (en ook voor de volgende 
statements) «geldt echter, dat de Low-byte alie waarden tussen j en 255 














mag hebhen, masr niet OlTt det macninetanl-program moet eindigen met @tn 
jump naer de monitor via JWPAC2CF, 

3) uitvoering van monitar-commands in de direct-mode. Dit is an “eite 
identiek aan punt 2. Zie bv. de comusands SIGH en VilY, aie een tekstspace 
creeren op resp. #6200 en #350, daar het commando Naw uitvoeren, indien 
nog geen tekst aanwezig ís en de variabele TOP ;oed zetten, vok de com- 
mands TS en TP, die resp, laten zien waar de tekstspacepointer staat un 
waar TOP (zie file NONITCO.FB) 

4) uitvoering van extra statements in basic programma's zonser aruumenten. 
Zie bv, PON, POPF, SON en SOFF, die resp. de printer of de seren aan cq. 
uit zetten, Als je zo'n statement maakt, moet je an het eind van de rou- 
tine terug springen naar #U556. 

5) uitvoering van extra basic-statement: met argumenten. Op mijn systeem 
werkt nu bv, al het statement FulV$&A,5.2". Dit format-statement heeft de- 
zelfde functie als in FORTRAN. Het transformeert een real getal in #A 
(bv. gevormd via STHÁX,A) in een afgerond getal met een Field width van 
sd en 2 cijfers achter de komma, 

6) start automatisch de toolbox via het eerst gegeven toolbox commando, 
of via de eerste return na BREAK (ait is belangrijk bij de cassette-toad 
routines!), waarbij een willekeurig bkWOk-nummer wordt vertoond, 

7) een ingebouwd DIR-statement die een listing geeft van de ingebouwde 
commando's in de betreffende EPKON, inclusief de staru-adressen ervan. Dit 
is vooral handig bij meerdere gemultiplexte kPROis op het zelfde adres 
(zie als vb. de DIK-listing). 

H) een extra facultatieve daorverbinding in het zoekproces van commando's 
naar het KAN-geheugen of ín de toekomst naar het EPKOM-deel van ov. #400 
tot #2800, (D.i, de file ECKAM, EB) 





De file EXTC,FB is bedoeld om uitbreiding van nieuwe statevments aan een 
al gedeeltelijk gevulde EFXOM op gemakkelijke wijze toe te voegen. 
Foppe Bouma. 


file ECRAM,FB 
1OP,$12"BASICCODES V EPKORS 





500 236 LDA/OZOASCiP #94 





















20F,BOUMA BEBLLANEN 71 232 BNE LLT; JSKfAFUO; JNPAATEE 
40 DIM 1L9,B15 235:LL7 ELPÉC555 

45 S=#3AOO;REN SOURCE ADH 24O:LL4 LOA(#OS) YGCHPLÉSEG BE, Lik 
A6 D=fJAOOGREN LPROE BASE 245 STY#03; PHA; JSNÉCALA ; PLA 
52 Z=Â62;WeDtZ;VeS44 250:L16 LDAfSO;ENE LL6 
55P.821;G.60 260 LDA#IIG;STAAI2 UN PACHEG 
59GOS.2;P. 86; GOS. 23E. PTO:LL5 JF (#00) 

60 G0S.2;008.2;P.$6;G.a 215 isk. 

100zP=842 3O0CAIN, "AANTAL CODEWOUKIEISE 
110T 310 E.le 10 

115 LDX4D 320P.PCODENOOED PI3IN. 








120:LL0 LDA W‚K;STAÁ9O, INK 33GIN. "LOM BYTE PT, PIG 
125 LDA W‚X5STAAOTs INX 340V20=T5V? 







130 LDYAO3;DEY 35OV PL. B) =fPE Veel. dze 
14O:LLT INY;LDA(#05),Y ZEOV=VTjMEV ijf Ie0PG kenti 
150 CMPR#205BE LLT SIOPLEK" meh: 1N2e we eh 
160:LL2 LDA W‚X;BMI LL4 36OP.t sn. 

170 CHP (#05),Y;BNE LL3 30 (Va 1) =fPE 


180 INX;INY;Bik LL2 
190:LL3 INK;LDA «‚X 
200 CHPE{PF;ENE LL3 
210 INKGLDA &‚X 

29 CNPIÉEFSENL LLG 





avn 










ADR O5 5 


RVS PEIkGE FhOie 





;G.40 





LDEG 

>:LEO JSK LI16+P 
LOY #03 DEL 
sLDAL#O5),Y 


















114 
E L3 





H113 INXS LDA Wx 
EER 113 





5 LLO 
bels TDA#0211;ChP#C2 
za (#02 10) 





HAAPOU ; JPAA The 
HPAC5Se 





113 102490; 
#41; Sha 12 sek AC Haf 
dr P(#0690) 

LDA:6; STX492 





LLT SSRAPFED 
FDA WGCEF API 





er A9O; INE 


ZiANe ELO 


vervolg EPU.ES 
5501;K. 
562 IN. "AANTAL CODEEOORLEN"N 
STO +0; F. I= TON 
5EOP."CODEWOOKD "I;IK,&B 
5IOIN. LON BYPE "TPE 
BODY? V ZH VV +25 NV 
61OV2 (IL, B) APF; VaV+L Bt 
B2OV eV 1 ;MeV-U; FP 
530P. en 1 ng IFK 
GAOP.t iN. 
Eeorivinje ZPF 
66OP.'' "ADRESSEN 












BYE" H 





V_ AeRO-FROGRAMRIER!' 








PRIRST Hei=fres" 
6TOP.PLAST Kikef"EV'PIKST PROR= 
Ont se. 

file KONITCOW,FB 

TOREN MONITOR COMGANDO'S 

12 s=Ò 

T5DIu LL10 

20608.2;G05.2 
25F.1=0fOI;P.PLL"I,®  É"&LLI'GN 
2Sb. 

3OzF=f324D 

402 

BU:LLO LDAs #29\ Hib 


O STAA12;BNE Li4 
TO: LL1 


LDA2#B2\KIGH 
3 
LDAY#96\VEY 
STA#12; STAAN 
TYÁJO 
Da (HAD), sCAFEI3G BE LLA 
eSRÉFT DI 












JúPACDIB 
5 JSRÉFTDI\EP 
SP="DOP:Á"; F=P+L. P;C 


LLÂ 














NOP; LDA#OE; J 
LOAAOD 
:LL7 JSNÉPBC2; ISRÉFFLD 

» 
A23; OSHÉFFPA\TS 
s LDAÉ12;BNE LL7 
2207 


Sk{P802 


file EXTC.FB file BAFK.FE 
1OP.S12"BASICCODES V LPROKS"!;G.40 TORE BEGIN AOOO- PE Uh 


20F BOUMA BEELLANEN 71 20DIK LL2 

40 DIM LL15,B15 305=#3000; hk. SOURCE AUK 
45P. "BEGIN BASE: #3000"! ;3=#3000 AOD=fbOUD KE. DESTIALLOA 
47 IN."PREE BASt:"V 50?S=f40; (541) =fbF 

50 v=v 60005. 2; GOS. zi he 

300aIN. "AANTAL CODEWOORDEN"N TOzP=5+2 

310Q=0;F. I= 1T0N vo: 

320P."CODEWOORD *I;IN.#B GOLDA DsCur #BssNe LL] 
33OIN. "LOW BYTE “0, MIIGH BYTEYH 1OOLDA D41;CEP frs EEE LL 
340V2O=D; VIe; VV +2 EV =D MOJKP D+2 


350V?(L.B)e#FF;VeV+L. Bt IGN. 120:LL1 JAPÁC55G 
36OV=V-1;MeV-U;F.I=OTO MijKel+1 
3TOP,&K” KIK; IF2KDJIP."  "E2K 
38OP,' ;N, 

390%(V+1)=fFF 

4OOP,''"ADRESSEN V ZERO-PHOGRANMEK""PEIKST Milt=f"&U" 









41OP."LAST KEMef"&V'"FIKST PROM=",&(U-S)" sit. 
voorbeelá: 

DIR 

BLOK 1200 HOkt ks E24D 

HIGH 253 var 257 

IP E274 Ts L2gD 

TRY 3A01 HRUN 8200 

VRUN 9800 PON L226 

POFF E29A SON H2gk 


SOEF E2A2 RAMON L2AA 


ARCHIEFBANDJE nr.3 een VERZAMELING DISASSEMBLERS 


Eren 

MDA AIN = Disassembler A.archal. gen disassembler in Basic, te laden 
naer #2900 of ELOAD#5200, doet er niet toe, Het program beslaat iets 
minder dan 3k. Geeft men na het gevraagde beginadres het gewenste aantal 
bytes negatief (met -) op, dan is het een orthodoxe disassembler. Geeft 
men het aantal gewwon (pos.) op, dar gaat het program, wanneer iets niet 
begrepen wardt over op byte voor byte en vertaalt naar alphanumweriek. 
"DA, ACT = Disasserbler van de Acorn-fabriek, In de verzameling opgeno- 
ven uitsluitend ter bestudering. Yet program is kort, precies Ih. Voor 
haastize wensen. Het program moet naar #52 en laadt met «RUN. kr zit een 

on n en eer. directe copieermogelijkneid naar #29 of elders, 

2NG(OPJ).REH!" = wen disassenvler-tionitor van K.Heuvel, ken juweel! 
Laat vele instructies toe als b(tep),t(rece),llist) etc. Geeft de inhoud 
weer van alle HEGISTKRS en de FLAGS, Volgt naar wens ae uitvoering van 
de instructies, Homt hij &us ooit de instructie tegen ‘clear screen! , 
(dit als v.h.) dan ziet u gelijk niets meer. Cp het bandje staat het 
erogram in objeet-code maar ook als: 
“DAMOLSYC).RH)" = in Source. Dit voor onderzoekers en ‘doe het zelvers! 
In ohjeetcode met xLOAD naar Á37FG tot #3(00, dus precies Ik, in source 
viteraärd meer; van Áo2 tot #9513 is 3sK. ket het source program naar 
te veranderen. 
1" = Disasserbier van A.kilienaar, ten ‘recht toe recht aan! dis= 
hier in Pasic, zewocn naar #29 met LOAD. Iets meer dan 3K. Het pro- 
rn is probleemloos te listen en te printen en voor iedereen te begrij= 
ren, wen erima kennismaking met de disassembler-methodiek, 
FDA BJA" = Disassembler, Basic gedeelte, Van J,Horsmweier, gaat naar 
#2990 tot #2CDA, dus iets minder dan Ik. Het program gebruikt tabellen 
mja TEK = via precies 255 bytes aan DATA. Voor net gemak volgt op 
XLOAD"DA P.dH" 2600 (op het bandje) het Basic deel er automatisen achter- 
zan, zodat u met fx laden klaar bent. Totaal 1 1/4h. Ha laden BkEAK (ret) 
CLO (ret) LefAARA,beginadres (ret) H=fkbsk,eindadres (ret) KUNT, 
tabeladres, nu dus #2c06, tiet program zet het scher: in page-moâe, Voor 
u gemakkelijg. Is eruit te halen: lijnnr.t. 













































InFBANDJE nr. 9, FEEEEEEE 

Ô TOK van koel ieavel. 

Op dit bandje een intussen verveterde versie. Oorspronkelijk gaat het 
hier om de Avnle nitor. el heeft deze geschikt gemaakt, practisch 
omgebouwd, voor gebruik in de Acorn Atom. Deze monitor is een stuk ge- 
reedschap or: in geheugens te kijken en in de registers. Deze monitor wordt 
Edruikt door Bijnagte in de cursus Assembler in Acorn Nieuws. 

Yan deze monitor staat op net ban op de eerste plaats ae Source. Source 
betekent bron of oorsprong. Deze source is op zich een programma. Het 
wordt geladen mez ELOADYERi SKC" 5200 geïaden naar #6200 en vuit dit ho- 
ge geheugen tot #9561, Bij RUN van deze Source assembleert dit programma 
de eisenlijke monitor die slechte 4, lang is naar een opgegeven plaats, 

je plaats, waar men dit gereedschap in zijn computer hebben wil. 

Het beginadres van deze IK monitor staat in de source in regel 159. Daar 
staat +#COG FP is dit beginadres, Volgens deze opdracht is P dus COO 
li, 3K Hoger dan het :dres 4 t adres 4 staat in regel 135. Daar staat 
#2COD. Het beginsdres P wordt in âit geval dus #2C00+#CD0=#3600. De fei- 
telijke monitor wordt door de source in ait geval aus neergezet vanaf het 
en einvigt In later, di, aus op adres #3EFF, Dat is een goede 
n, die het lage zeneusen (no, niet gestapeld hetzen. 
ven wel uivsebreid van #3CUD vat #3FFF, dan kan men de 
























monitor beter hoger zetten, vanaf #3C00. Dit Kk n eenvoudig bereikt wor- 
den door in de source regel 135 te veranderen in: SzfS0U0Oinkk, BASu 
ADDRESS eeft men de 16Kk CIOS-geheugenkaart, dan zou de monitor op 
#3COO weer in de weg staan, ken betere plants is dan #7CU0, we bereiken 
daor in de source in te vullen: #-#1000sete. deeft men de schakelksert 
dan kan de monitor nog seter vernuizen naar #ACOO in EPKOL of CĲCH of zo. 
De source die na KUN de eigenlijke monitor heeft samerngesteid en weg, 
zet, kan dan verdwijnen. De eigenlijke monitor kin men dan op é: vnd 
zetten met (bv.) sSAVEFNEIL NC"3600 ZBPF 3ADE t edree 3495 is het 
executieadres en ligt bij de ronitor altijd #2:5 locaties hoger dan H. 
Ve oorspronkelijke source versie wes bedoeld om de menivor direct we 
te zetten in LPRON. Hiertoe stond in de source te rege 110, die de 
hele 4K EPROK eerst wist voor de zekerneid. Eij schrijven naar gewoon 
geheugen kan men die regel beter eerst verwijderen. Ook rezel 155 nienr 
dit doel. Die regel kan men gewoon laten staan en op het comanao 'jcna 
kelaar omzetten! returntoets geven. 

De source maakt dus de monitor en zet deze ersens wes. dij ‘run't “e ron 
nitor ook meteen, zodat na het geven van de assemviersisting de dubbele 
punt (:) verschijnt. 

SCHIPHOL JW. 

Het betreft hier een FLIMIYSILALAECK, een door da: p var ue woestijn Om- 
geschreven versie van het oorspronkelijke progran "747" van due 2yte. 

De bedoeling van het program is, dat men als piloot zitvend in de cock- 
pit van de PH-BUX volledig op instrumenten vliegt naar één van de peil- 
stations rond Schiphol en zorgt daar aan te komen op ae „oede noopte en 
met de goede snelheij etc. Dan aldaer op kompas de Focht sraait naar de 
landingsbaan, Vliegt men dan inderdara precies door het voorgeschreven 
‘raam' dan kan de landingsbaen in de verte worden gezien. de ZOede 
daalsnelneid komt men netjes tereent en wordt de prestatie in procenten 
en een compliment uitgedrukt, fact het : enter te hard of te langzeen met 
dalen, dan kwakt men tegen de grond of vliegt erover nt . in beide 
vailen zet het programma uw toestel echter weer netjes op se baan en 
wordt u verzocht om wesr te vertrekken. let prosran = veel auvelddenn 
en verloopt vele malen soepeler san net oerepronkelijke program va 
Byte. Het is ook gemoderniseerd in taalgebruik en aansepast ks n de chi 
hol procedures. Het vliegen op 2 neilstatia tezelijk, één 'an en 
één voor kruispeiling vergerakkelijkt ae orienterje op dnstrumenten OOK 
aanzienlijk. 

iet programma is lang en vra:gt minsten het ‘gestapelde! lage ceneu, tn 
vanaf #2900 dus, Het programms is dootf Jap in opzet zselocaliseira naar 


















































Kur 

















#4000, het beginadres van de CLO5-geheugenkaart en loopt vandaar ira, 
het beeld is 'smetteloos!'. siet vereist ook de Floating Fcint, vodat men 
niet vanaf #2500 kan laden. Door de waanzinnige hoep berekeningen Kan er 







een enkele maal in het program wat mis gar. 
Jaap leverde bij het program de benodigde 'LÀ kaarten 
van Schiphol. Foto-copieen van deze kaurten ket aen bestellen “ij het 
tlistings-archief' f2,- in postzegels, of in de regio. 
Vluchtsimulatoren zoals deze (waer dan wat groter dan een AUD) w 
bij luchtv*artmaatschappijen gebruikt voor trainen van pitoten. … 
versie van J.van de Woestijne gaat net zeker nict om een opelret, 
zult uv letterlijk de handen vol heboen. 

Gebruik van de toetsen: 

Toets '1' en toets tet kiezen de peiistations. Advies: kier met "1! net 
statior. voor een van de 4 ADf-bakens UA, WI, Cil of SÌ4. De koers die u 
vliesen moet om dit baken te bereiken staet a-ngegeven bi: '1' en is in 
te stellen door de koers onder ‘HDG' (heading) daaraan gerijk te maken. 
Dit doet u door een haent te “raai  toete LUCK Linkeou: hkti recatvsor 


















Visueel blijft uw toestel maar draait de horizon weg én zo noort het, Of 
de koers nu correct is ziet u op het buitenste kripperlichtje van het 
coupas. Het binnenste (dìchtst bij centrum) geeft de richting aan van 
peilstation '2', Als het goed is, vermindert nu de afstand tot het inge- 
stelde baken, Uiteindelijk tot O. U zit er dan recht boven. 
U moet nu een aantal dingen tegelijk doen. ken paar maar. De hoogte dient 
op dat moment ca. 2000 Voet te zijn. De landingsklappen moeten uit met 
‘+1 (vasthouden), De wielen moeten uit met 'G'(gear). Door deze hande- 
lingen Loopt de snelheid terug, Kom met klappen ‘in’ niet onder 220 hno- 
pen en met klappen vol uit (3C gr.) niet onder 140 kn. Zen. gas meerde- 
zen met ÎH of minderen met 'L'(less). Vanaf het baken dient u exact op 
koers te gaan na de landingsbaan. Die Koers ziet u op APFPKOACH kaart 
nr,6. Vanaf baken UA is dit dus (bv.) 167 graden. (U is Noord). 
Zit elles goed, dan vìiegt u nu door een RADAR-raam waardoor de instru- 
enten verdwijnen. Is de koers exact goed, dan ziet u in de verte de 
landingsbaan als een stip en geleidelijk groter. ket "A! neigt de neus 
naar beneden; met ‘spatie! kunt u weer optrekken. Zet vóór de instrumen- 
ten verdwijnen met H de AETITUDE op -3 en corrigeer met H en spatie de 
daalsnelheid op zicht eventueeì bij. Richt daarbij op de hoogte van de 
horizon, flikkerstreepje links, moet ongeveer halverwege de schermhoogte 
bli 
Bij vertrek: - is 'Tlaps in' (pas als u 220 kn, heeft!) 

G is twielen in' (pas als u los bent, zie hoogte) 
= Indicated Airspeed (snelneiä) Turbine rotatie (gas) 




















8 Altitude (hoogte) stijg/daalsnelheid 
PLAP=klappen kadiaal 
APC= Air Trafic Control (Sehiphoì) koers 


OLL=draaien om lengte-as ANTITUDkedraaien om dwarsas (nelling) 
I.FORTd, 

Als @ndere ‘aogere programmeertaaì' dan Basic ís voor de Atom beschik- 

de taal FORTH. De programmeertaal FORTH is veter dan Basic geschikt 
om daarmede programma's te schrijven t‚b.v, bv, scnakeïdoeïeinden, zoals 
ow, het sturen van ecn modelspoorbaen, FOH wordt dan ook nogal eens 
gebruikt in de meet en Hegeitechniek, 

In Amerika bestaat er een PORT! gebruikersvereniging, de FORTH INTEREST 
SROUF, sie een goede gebruikers-FCkTH heeft samengesteld en deze vrij 
ter beschikking stelt. Ons lid ter Harmbel zond mij deze F.1.G.FORTH toe 
aangepast aan de Atom routines, Volgens Akkermans, die de cursus POKTH 
verzorgt, is deze zeker zo goed als FOKTH van Acorn-soft. 

| laadt dit programma met slOAD"FONTH DTH" 2500 Daarna met zLOAD"PAGE 2" 
95CO de gegevens nasr Block 9 HAN, Dan start u FORTH met koude start 

door LINK#2500 en met warme start door LINh#2804. De cursor komt dan 
riet terug, doch als u dan intypt DON dan krijgt u een listing van de 
nestings en volgt de dubbele punt (:) als cursor. 

Attentie: Bij laden van de FIG FORTH schrijft het programma vanaf #2000 
tot aan #3FFF, U dient dus wel een gestapeld jaag geheugen te hebben. 

Het programma schrijft ook neen over de geheugenplaatsen #2900 en #2901. 
Op #29CO staat dan #15 en op #2901 staat #6. 

Wanneer u bij gebruik van deze POKÈH echter een keer de BkuAKtoets ge- 
bruíkt, dan worden deze ? plaatsen vernield. Pook dan even de code terug. 
DANKEN 1 en 2 van BOOGAARD. 

Dammen 1: Laadt van #5200 tot #9B2U en vraagt dus gestapeld hoog geheugen. 
Dammen 2: Laadt van #2C0G tot #3D21 daarna ?18=#35 END KUN 

De notatie is van LINKS BOVEN af de Bruine velden met 1 2 3 4 enz. Tot 
onder rechts 50. (Vul bij de vraag 'meerslag' een cijfer in en niet JA). 




















ASSEMBLER CURSUS 


DEEL 1: 

Deze kursus Assembler is speciaal voor hen die de Atombasic behoorlijk 
beheersen, In de komende afleveringen zulien de Atom assembler en de in- 
structieset behandeld worden, zodat ieder, na het serieus doorwerken van 
de kursus, zich behoorlijk thuis zal voelen in machinetaal programmeren. 
Net als voor de basic geldt:” Oefening baart kunst", Van alleen theorie 
zal men nooit de puntjes op de i, of onder ons gezegd;"de bita in het 
byte” krijgen. Als gereedschap voor deze kursua is het Archiefbandje 6 
met het monitorprogramma van R‚Heuvel bijzonder handig, Vooral als we 
met het behandelen van Flags gaen beginnen, 

Het hart van onze Atom: de 6502 

De 6502 is de uitvoerder van alle opdrachten, Dit geldt voor zowel basic 
als voor de assembler. De 6502 doet alleen werk wat hem opgedragen wordt. 
Wat hij precies moet doen, ligt vaat in de opdracht. Het scala van op- 
drachten is gespecificeerd in een zgn. instructieset. Zo'n instructie- 
set bevat dus alle machinetaaimogelijkheden van de 6502. Als de 6502 

dus een kode tegenkomt, dan voert hij dit uit. Het is dus een echt dom 
ding: wat hij doet is alleen uitvoeren wat van hem verlangd wordt. rnig 
greintje zelf-initiatief toont nij (gelukkig) niet. U vraagt zich nu na- 
tuurlijk af :"Ho effe, en als ik nu intyp Print "Hallo", wat doet 'ie 
daar dan mee?” Nou, dat is in principe heel eenvoudig, Het commando 
Print wordt omgezet in een aantal mechinetaal-instructies en die worden 
op hun beurt weer aangeboden aan de 6502 en die voert het uit. 

De Atom assembler: 

Deze assembler is uw rechterhand bij het maken van machinetaalprogram- 
ma's, Wat dit ding doet, is in feite erg simpel. Op de huis-, tuin-, en 
keukermanier typt u uw opdrachten (instructies) in, alsof u een basic- 
programma intypt, Nadat het prograuma is ingetypt, wordt het “gerund”. 
Nu komt de eigenlijke assembler in actie. instructie voor instructie 
wordt vertaald ín hexa-decimaal-getallen en opgeslagen, op een door u te 
bepalen stukje geheugen. U hoeft dus niet zelf al die vervelende hex-ge- 
tallen in te typen, dat wordt voor u gedaan. 

Hexadecimeale getallen: 

De 6502 werkt met hexadecimalen, D‚w,z. U-9 ABCD&F. als op een geheugen- 
lokatie een getal moet worden opgeslagen, is dit een hex-getal, Op één 
geheugenplekje kan een getal van B bits worden opgeslagen. ben geheugen- 
plaatsje kan dus een getal tussen OO en #FF (0-255) bevatten, want het 
is een 8 bits, dus er zijn 28 mogelijkheden, 2x2x2xexexexex2, Willen we 
zelf een geheugenplaatsje vullen, dan kunnen we dit doen met het vraag- 
teken, Bev. ?f90=f2A, Als we willen controleren of het klopt, toetsen we 
in PRINT & 2#90 en voilà: 2A, Een ietsichtbare methode is om het beeld- 
scherm als geheugen te gebruiken. Toets eens in ?/8000 =#2A, Links bo- 
venin ziet u een sterretje verschijnen. Probeer dat ook eens met andere 
waardes. Opvragen van dit geheugenplekje is eenvoudig. Toets in F.&f5000 
(zorg wel dat de bovenste regel niet 'van het scherm valt’, anders wordt 
ook de geheugenplaats ‘overschreven' en zakt m'n hele theorie ìn net ijs) 
Een klein stukje theorie van de 6502: 

Voordat we met machinetaalprogrammeren beginnen, moeten we eerst de 
meest essentiele dingen van de 6502 weten. 

- 3 (8 bits) interne registers de Accu X en Y. Dit moet je zien als b.v. 
Z in basic, In deze geheugens kunnen getallen tussen 0 en 255 (OO-FF), 

= Een vlaggenregister of statusregister. Hierin bevinden zich de standen 
van de vlaggen, Het volgende deel zal over vlaggen gaan. 

- De Program counter, Dit is een register wat weergeeft waar de volgende 


instruktie zich bevindt, Het is een 16bits register en kan dus varieren 
tussen 2000 en #FFFF. 

-Memory. Dit register wordt door de gebruiker bepaald. ken memory kan in 
principe alles tussen 0000 en PFFF zijn. Als u dus opdracht geeft een 
etal op #9TFF op te slaan, dan is de memory tijdens de instruktie #972F. 








achine instructions. 

ADC Add Nemory to Accumulator JSK Jump to New Location Saving Keturn 
with Carry Address 

AND AND Wemory witn Accumulator LDA Load Accumulator with Kemory 

ASL Shift Left One Bit (wemory LDX Load Index X with Memory 


or Accumulator) LDY Load Index Y with bemory 
ECC -Branch on Carry Clear LSR Shift Right One Bit (Memory or 
BCS Branch on Carry Set Accumulator 
BEQ Branch on Result Zero NOP No Operation 
BIT Test Bits in hlemory with OKA Ol Kewory witn Accumulator 
Accurulator PHA Push Accumulator on Stack 
BI Branch on Result Minus PHP Fush Processor Status on Stack 
BNE Branch on Result Not Zero ROL Rotate One Bit Left (Wiemory or 
BPL Branch on Result Plus Accumulator) 
BRE Force Break KOR Kotate One Bit Right (Memory or 
BVC Branch on Overflow Clear Accumulator) 
BVS Branch on Overf low Set KTI Return from Interrupt 
CLC Clear Carry Flag RIS Return from Subroutine 
CLE Clear Decimal mode SBC Subtract Memory from Accumulator 
CLI Clear Interrupt Dásable Bit with Borrow 
CLY Clear Overflow Flag SEC Set Carry Flag 
CMP Compare Memory and SED Set Detimal Mode 
Accumulator SEI Set Interrupt Disable Status 


CPX Compare Memory and Index X SLA Store Accumulator in Wemory 
CPY Compare Memory and Index Y STX Store Index X in hemory 


DEC Decrement Memory by One STY Store Index Y in hemory 

DEX Deecrement Index X by One TAX Transfer Accumulator to Index X 

DEY Decrement Index Y by One PAY Transfer Accumulator to Index Y 

EOR Exclusive-OR Memory with TSX Transfer Stack Fointer to Index X 
Aeccumulator TXA Transfer Index X to Accumulator 

INC Increment Memory by One FXs fransfer Index X to Stack Pointer 

INX Increment Index X by One TYA Transfer Index Y to Accumulator 

IY Increment Index Y by One PLA Pull Accumutator from Stack 

JAF Jump to New Location PLE Full Processor Status from Stack 


Compare Instruction Results, 


Condition N 4 c 
AX, or Y< Memory 1 0 a 
A‚X, or Y= biemory 9 1 1 
AX, or Y> Memory ke) c 1 
DEEL 2: 


De Stack pointer. 

Dit is een S-bits register. Dit register vormt samen met een vast getal 
(#G1) het eerste vrije stack adress, De stack wordt door de processor 
gebruikt om tijdelijke gegevens op te slaan. Bev, het terugkeer adres 
van een subroutine, Stack adress Olzr — OIFF 

Assembler variable P. 

De ruimte waar het programma moet worden geassembleerd moet door de ge- 


bruiker worden bepaald. Moet het pal achter het prograrma komen dan 





wordt het DIM P-1. D.w.4. dat het programma pal achter TOP geassembleerd 
wordt, Weet je van tevoren al een adres, dan geef je die waarde aan P, 
Dus b.v, P=#2800. Zorg dat bij een DIM-instruktie DIM P-1 de laatste in- 
struktie is, omdat de ruimte(=lengte) niet vast ligt, die voor het pro- 
gramma nodig is. Met P legt u n.l. het beginadres vast. 
Haken. 
Het programma dat ín machinetaal moet worden gezet, moet tussen haken 
worden gezet. Zo'n haak maakt de interpreter duidelijk, dat er een assem- 
bler programma tussen staat, Vergeet u de openingshaak, dan verschijnt 
(piep) ERROR 94 in line XX. Bij vergeten eindhaak ERROR 208 in line XX. 
Een programma ziet er dus minimaal zo uit: 

10 P=#2800 of DIM P-1 

200 


100} 

110 END 

Vlaggetjes dag. 

Het status of vlaggenregister is een belangrijk onderdeel van de 6502, 
Een vlag is een hulpmiddel voor de programmeur. ken vlag kan 1 of U zijn. 
Ale de processor daartoe opdracht krijgt, kijkt hij of de genoemde vlag 
O of 1 is, U kunt hem vergelijken met de IF-THeN, Als de voorwaarde 
achter IF waar is (1 is dus) THEN ... Na iedere instruktie wordt het sta- 
tusregister bijgewerkt, 

Indeling statusregister. 

N/V/-/B/D/1/2/C/ 

De vlaggen stuk voor stuk: 

De carry vlag c 
Deze vlag wordt gezet als bv, bij een optelling de #FF wordt overschreden. 
U kent hem vast wel van de lagere school: één onthouden als de optelling 
groter is dan 9. Bij aftrekken is het net andersom. De carry wordt O als 
er 'geleend' wordt; bv. 10014-9=10005. Bij schuiven en roteren kan de 
carry worden gebruikt als 9° bit‚(Hierover volgt 'n aparte aflevering). 
De zero vlag 4 
Deze vlag wordt gezet (1) als de voorafgaande bewerking op O uitkomt. 

Dus bij 5-5=0 wordt de zero vlag gezet. 

Interrupt bit i 
Dit is eigenlijk een apart verhaal. De processor bezit een ingang IRQ. 
Als deze ingang 1 wordt, kan de processor, afhankelijk van de stand van 
de vlag, gedwongen worden om een ander stukje programma uit te gaan voe- 
ren, U kunt de vlag vergelijken met een direkteur: Als de vlag 1 is hangt 
het bordje 'niet storen' op de deur. Als de vlag O is mag er wel gestoord 
worden. Het storen gebeurt niet direct. De processor maakt eerst zijn 
instruktie af en kijkt dan naar de interrupt. (bax” 3Jmierosec,) 
Decimal/Hex vlag D 
Als deze vlag gezet is, zullen op- en aftellingen decimaal gebeuren. Is 
de vlag O dan zullen alle rekenkundige bewerkingen hexadecimaal geschie- 
den, 

Break vlag B 
Als de processor tijdens een programma een BRK-instruktie tegenkomt dan 
wordt deze vlag gezet en springt hij via de brk-vector weg. Wordt ook 
wel software interrupt genoemd. 
Bit 5 — 
Wordt niet gebruikt. 

Overf low vlag v 
Deze vlag wordt gezet als een bewerking groter is dan 64 (#3F). 


Negative vlag 

Deze vlag wordt gezet als het MSB van een getal 1 is; groter dan 128 (#7F). 
Als bv, een getal wordt afgetrokken van een getal en de N-vlag wordt 
hierbij gezet, dan is het getal dus negatief. 


Sommige vlaggen kunnen ook door de programmeur worden 'geset' of ‘reset'; 
CLC clear carry (maak de carry vlag 0) SEC set carry (maak de carry vlag 1) 
CLD clear decimaal (maak de D-vlag CO) ShD set deci, (maak de D-vlag 1) 
CLI clear interrupt(maak de I-vlag O0) SEI set inter.(maak de I-vlag 1) 
CLV clear overflow (maak de O-vlag 0) 

Afhankelijk of een vlag O of 1 is kan er gesprongen worden naar een 

ander aâres. We hebben de volgende mogelijkheden: 


BCC spring als C-vlag O ia BVC spring als V-vlag O is 
BCS spring als C-vlag 1 is BVS spring als V-vlag 1 is 
BNE spring als Z-vlag O is BPL spring alg N-vlag O is 
BE} spring als Z-vlag 1 ia BMI spring als N-vlag 1 is 
DekL 3: 


Eindelijk is het nu zover: Na de droge theorie uit voorgaande afleverin- 
gen, gaan we nu beginnen programma's te schrijven. 

Eerst gaan we echter de monitor van K‚Heuvel laden en gebruiksklaar ma- 
ken. Ik ga hierbij uit van archiefbandje 3 of 9, Bandje 9 bevat een bij- 
gewerkte versie, Deze laadt met zLOAD"WRH 7 SRC"8200, Na laden, als be- 
kend, ?1ö=#82 END RUN Op de vraag ‘schakelaar omzetten! gewoon return 
toets, Het programma assembleert dan en geeft zijn assemblerlisting zo- 
als hij zichzelf heeft weggeschreven naar het door u gekozen adres. 
Daarna verschijnt de : u zit dan ín de monitor. Ga er nu uit met 'ESC', 
Wie de monitor in de geheugenkaart gezet heeft vanaf bv. #7C00-{7FFF, 
kan hem nu met Write-Protect op slot doen, 

eeft u geen kaart en (bv,) ook niet ‘gestapeld', dan staat de monitor 
waarschijnlijk op #3800-#3BFF. U kunt deze geassembleerde versie dan het 
beste direct even op de band zetten, dan bent u volgende keer sneller 
klaar. Dit gaat (in dit geval) met &SAVE"MRH 7 MC*3500 3COO 3AD5. De 
geassembleerde versie 7 ís maar 1K lang. Als alles zover klaar is, dan 
is de monitor aan te roepen met LINKÉ3ADS Met de JUMPEK van Bouma (nu of 
straks bv, met KRH, 

De WC (Machine Code) versie, die direct naar de geheugenkaart kan naar 
{1C00g staat reeds op bandje 9. In dit geval LINKÉTED5, 

We verlaten de monitor nu met ESC en gaan aan de slag: 

Type in (gewoon in het lage geheugen #2900 dus) 


10 P=#2800 (de P verstaat de Atom als beginadres waarop een 
program geassembleerd moet worden) 
20ELDX O0 (3 is hier 'apestaart', Hier staat: laadt X register 
onmiddellijk (immidiate) met een O) 
30 INX (Incerement, d.i. vermeerder X met 1) 
40 JUP #2602 (Jump, d.i. spring naar adres #2802) 
501; END N.B. Alle spaties zijn hier getypt voor de duide- 


lijkheid, U kunt ze zelf het beste weglaten. 

we typen nu RUN en krijgen van de ATOM een korte diaassemblerlisting. 
We roepen nu de Monitor op met LINK enz. en typen achter de : in 

:2800 dan Control N dan T,‚ dus :2500 CntrN T (returntoets) 
De monitor gaat nu vanaf #2800 de Codes en Registers 'Traceren' en doet 
dit, door de ControlN, in de PAGE MODE, dus steeds een pagina. De vol- 
gende pagina krijgt u door indrukken van 'n toets, Dit traceren kunt u 
stoppen met ESC, Dat geeft de : terug. Met nogmaals ESC gaat u dan de 
Monitor uit, 
Bij het Praceren ziet u de 'waarde!' van register X ónder de X staan. U 


ziet, dat na elke Instructie INA deze waarde 1 hoger wordt, daarna wordt 

er weer terugge-'jumpt' naar #2502, 

N.B, Zolang u nu de BhEAKtoets niet gebruikt, blijft de ControlN d.i. 

dus de Pagina Mode erin staan, doeft u niet meer te doen. Nogmaals van 

begin af kijken met de Monitor gaat dus met 12500T 

U ziet hierbij, dat in eerste instantie X geladen wordt met O. Dit komt 

door de instructie van regel 20, Dit heet. 'immidiate' adressering met 

als kenmerk de Apestaart. 

ONTHOUD: IDA? betekent: Laad X met getal achter Gen heet 'immidiate! 
(immiediejut) adressering. 

Bekijken we de Tracering nog eens goed. (In het Engels TRACK (trees).} 

Links dus de PC, de Program Counter, 

De PC geeft het adres waar de code staat, die in deze regel behandeld 

wordt, Daarna de Registers A, X en Y 

Het A Register heet in het spraakgebruik de 'Accu'. We zeggen altijd dus 

bv, ‘laad Accu! en niet 'laad A-kegister', Wat hetzelfde is. 

Welke waarde nu in A en Y staan is in dit program niet interessant. 

Geheel rechts zien we de 'Vlaggen', de FLAG's (spreek uit fìèks), n.i. 

NV BD IZ4C, allemaal éénbit-registers, die dus alleen maar + of — 

kunnen zijn of Hoog/Laag of 1 en 0. 

Op het moment dat X geladen worât met O zien we, dat de 4 Flag 1 wordt, 

en alléén dan! De Z Flag heet ZERO-Flag. gero is het 'nul' in kngels. De 

Zero-Flag wordt 1 als een Register O wordt. Hij wordt weer Zero (O dus) 

bij alle andere waardes, 

Wanneer u het programma met de Monitor bekijkt, ziet u, dat X steeds één 

cijfer hoger wordt. Wanneer u het programma lang laat lopen dan verandert 

er op een gegeven moment weer een Flag. Noteer zelf welke Flag dan 'ge- 

set' wordt (1 wordt) en wanneer, 

Het grootste getal, dat het A, X en Y Register bevatten kan is FF of- 

tewel 255 (in decimaal). Verder tellen geeft weer O. 


Een Register kan dus geladen worden 'immidiate' met een getal achter &. 


We kunnen een register ook laden met een getal, dat ‘ergens! op een 
adres ataat, als we bij de instructie dit adres maar opgeven. 
B‚v. LDX #86 Dit heet: ABSOLUTE ADRESSERING, 

Neem de proef maar: U vult b.v. #86 met #3. U kunt dit doen door 


‘gewoon’ te pooken volgens het Manual, dus: 2Áob={3 (returatoets). 
Met de Monitor gaat het vlugger: U toetst in 
:86:3 (ret) N.B, de Monitor verstaat álle getallen als Hexadecimaal, 


U gaat nu met ESC de Monitor uit en met L, (=sList) in het program, de 
SOURCE (Bron), dan verandert u regel 20 in 20E LDX #66 

Na RUN gaat u weer met de Monitor kijken. U ziet dan, dat de uitgangs- 
waarde van X niet meer O is maar 3 (#3 dus in feite, is hier hetzelfde). 
Wilt u alleen maar deze eerste (uitgangswaarde) zien, typt u dan 

:28005 (ret) Wilt u slechts (b‚v.) 4 stappen zien dan 

:28008SS5 (ret) Wilt u alleen de assemblerlisting zien, dus zonder de 
Registers, dan :2800L (ret) Combineren kan ook, bv. z25008L 


Gaan we met ESC terug naar ons oorspronkelijk programma, de Source(Soers) 
Op regel 30 staat de instruktie INX (increment X, spr. uit inkriement). 
Zo'n instruktie heet een IMPLIED instruktie (implijet). In deze instruk- 
tie ligt vast: a) Wat er moet gebeuren en b) impliciet ook waar. kr staat 
dus: a) Tel 1 op; b) in register X, 

Ons programma tot dusverre telt eindeloos éénen op in Register X, Ke kun- 
nen ook laten optellen tot aan een bep. waarde. Die waarde moeten we op- 
geven. Het programma vergelijkt dan na élke optelling of die waarde al 
of niet bereikt is. ‘Vergelijken! in Engels is: To COKPARL (kompèr). 
Vandaar de instruktie CMP (Compare), en de instruktie CPX (Compare X Re- 


gister met Geheugen). 


De (FA instruktie vergelijkt de waarde van het X Register met de waarde 
die achter die instruktie moet worden opgegeven. 

Dit kan (alweer) 'immidiate', dus met & of ‘absolute! met ADRES. Dus: 

CPXe #2A betekent: verg.heg.X met getal #2A en: 

CPX #2A betekent: Verg.heg.X met getal dat op adres #2A staat. 

Het ‘Compare' of 'Vergelijken' doet de machine, door de twee te vergelij- 

ken waarden van elkaar af te trekken. De waarden vindt hij dan ‘gelijk! 

als het verschil op O uitkomt, Niet zo dom geredeneerd. 'Gelijk' in 

Engels ís EQUAL (lekwel). 

Bij EQUAL moet het program iets anders gaan doen dan blijven optellen. 

tet program moet gaan 'vertakken!' ergens anders heen. 'Tak in Engels en 

Frans is BRANCH. 


Vandaar de instruktie BKANCH ON EQUAL afgekort BE. 

wat gebeurt er nu allemaal in feite: 

Bij de instruktie CPX wordt de inhoud van het £ register vergeleken met 
de opgegeven waarde, immidiate of absolute. 

=De waarden zijn gelijk, als het verschil O is. Wanneer deze waarde 0 is 
dan wordt de Z Flag 'geset', dus 1 gemaakt. 

je instruktie BE leest eigenlijk alleen de 4 Flag, en zogauw deze 1 
wordt laat hij net program vertakken. 

HAAKHEEN branchen (vertakken)? 

zoeten we weer opgeven achter de instruktie Bög, Dit kan a) door achter 
je instruktie een adres op te geven, b) door achter de ìinstruktie een 
label op te geven. 





Een LABEL in assembier is b.v. LLIO maar ook Aaù 

Een Label wordt in het program geplaatst door :1L10 Zo'n label(leebdel) 
kan vóór aan een programregel worden gezet, maar ook binnen de regel na 
een ; (punt /komma). 


üanneer we in een programa laten BRANCH.N naar een LABEL, en dat LABEL 
staat pas verderop in het program, dan is die Bk instruxtie op dat mo- 
ment niet uitvoerbaar, Het program moet deze LABEL bij een eerdere run 
éérst hebben zien staan en het adres ervan onder DIM hebben genoteerd, 
Een dergelijk program ‘met een jump vóóruit' heeft dus bij de eerste 
keer runnen geen effect en loopt goed bij de twééde KUN, 


Demonstreren we eerst de functie van een LABEL met: 


SDINLL1 30 :LLOINX 
1UP=#2800 4OJKPLLO 
20E; LDX:0 50l;E. 


Disassembleren we dit program (na KUN) met de monitor ( :2500L) dan zie 
je, dat er t.o.v, Voorbeeld 1 niets veranderd is. ret Label wordt gewoon 
ingelezen als net adres, waar dit label staat. 

Typ b.v. PRINT &LLO en er verschijnt 2502. 

Het voordeel van LABEL's zal duidelijk zijn. Wanneer je in een SOURCE 
het BEGIN ASSEMBLELKADRES P veranaerd wil hebben door deze machine code 
ergens anders te plaatsen in je geheugen, dan hoef je bij gebruik van 
LABELS niet alle JúP en BEQ instrukties zelf van nieuwe adressen te 
voorzien. Het program zoekt zelf wel op waar de labels staan. 


Weer terug naar de CPX instruktie, 

Achter BE vullen we dus in LLO en als de 'COMPAKE' ig 'ZERO' dan volgt 
een 'BKANCù' naar het adres van LLO. Komt dit label LLO pas verderop in 
het program dan verschijnt in de disassemblerlisting de boodschap 'out 
of rangs' wat zoveel betekent als 'ik lig eruit', Een feitelijke error- 
melding is dit niét, Het disassembleren gaat gewoon door en aan het eind 


zijn de plaatsen van de labels genoteerd. Bij een tweede keer KUknen gaat 
het prima. Dit twéé keer runnen kun je het programma zélf laten doen (R20). 
Bij ‘sprongen vóóruit' zullen we dit verder altijd doen. 


1ODIMLL2 130CPX9 #10 

20G0S,a;GOS.a 140BEQLL1 

30E. 150JMPLLO 

100aP=#2800;E 160:LL1BRK (Break is STOP, net ais bij boksen) 
11OLDX#O 1701; RETURN 

120:LLOINX 


Wat gebeurt hier allemaal. We zullen u nog één keer helpen: het DIKLL2 
worden aan het eind van het program 2 geheugenplaatsen ge'dimensioneerd! 
(gereserveerd) voor 2 labels genaamd LO en LL]. Het programma 'runt' 2x 
ievem. de jump-vóóruit, zie 140 en 160. Bij de eerste keer 'RUN' ziet u 
'OUT OF RANGE' verschijnen; de tweede keer niet meer, 

110 zet een O in Register X 

120 maakt dit getal 1 hoger 

130 kijkt of er al 10 staat (Decimaal 16) 

140 zo niet; slaat 140 over en jumpt met 150 terug naar 120 

160 zo ja; branch't (jumpt) naar 160 en stopt. 


Nu weer de Konitor in en dan disassembleer vanaf 2500 ( :29001). Het pro- 
gram heeft daar 6 regels en gebruikt 2800 t/m 250A = 10 geheugenplaatsen. 


De afkortingen LDX, CPX enz. noemen we MNEMONIC's (Maemoniks}). Het MNeNMO- 
NIC LDX is dus de INSTRUKTIk 'laad Reg.X met .…' en de MACHINE CODE voor 
deze instruktie is A2. Wanneer u dus de instruktie LDX intypt, dan maakt 
de machine hiervan de Machine Code A2 want de computer begrijpt alleen 
getallen. Dus: alle getalien(waarden), alle adressen en alle instrukties 
zijn in machine code ge t al len die op een adres (getal) staen. 
OMGEKEERD (en daar gaat het om) kan élk getal in de machine zijn: 

een waarde(getal), een adres of een instruktie, 


Wat met een getal bedoeld wordt begrijpt de machine alleen uit de volg 
or de van de getallen, Komt de machine dus het getal A2 tegen, dan zal 
hij dit begrijpen als LDX& (load X immídiate). Staat daarachter wéér A2 
dan vat hij dit als de ‘waarde! op waarmee X moet worden geladen. 


We kunnen dit laten zien: Type in (in de Monitor) :2500:A2 A2 (ret) 
(Let op de spatie). Daarna 2800L (ret) U ziet dan LUXE#A2 
Probeer daarna :280A:0 0 OO 0O00C00000GC0DO0GO (ret) 

12800L (ret) 
Het is dus duidelijk; de Code voor BRK is O0, 
Wanneer urdeze codes een beetje kent kunt u met de hionitor di reet in 
machinecode veranderingen aanbrengen in een program, Probeer maar eens 
(als oefening) :2808:0C (ret) :2801:9 (ret) 

+280: C 02 28 (ret) :2800L (ret) 
U ziet dan de PC (Program Counter) braaf van 2507 naar 200C springen en 
direct weer terug naar 2802, 
Probeer een paar CODES te onthouden, zoals hierboven 4C (jump naar ……). 





We gaan weer terug naar ons programma met ESC en LIST. 

Dit programma is dus een gemengd BASIC/ASSENBLER programma. Wanneer we 
RUN intypen assembleert het zichzelf naar #2500. RUN is een BASIC STATk- 
MENT, Wanneer je het geassembleerde program d i rec t wil 'INIPIEKEN 
(op gang brengen) dan doe je dit met LINK#2800 Eerst moet dan de instruk- 
tie BRK in regel 160 veranderd worden in RTS (Return from Subroutine). U 
doet dat natuurlijk met de Monitor; de BRK staat op adres 250A en de 

CODE voor RTS is 60. Dus simpel 1280A:60 (ret) ESC LINK#2500 

Je ziet dan nix maar in het X keg, staat dan echt 10. Ga maar kijken. 





wanneer u een paar COD5S kent, dan js het vaak simpeler om in een HeX 

UMF te kijken en/of te veranderen. Type maar eens (in de monitor) 

:2500 (ret) geeft :2500: A2 (weer ret) geeft OO E56 HO 10 FO O3 4C 
(ret) geeft 2802: OC 25 60 60 4C O2 2o 00 (en elke ret geeft volgende 
& codes). 

U bent nu deskundig en ziet direct st : 4C O2 25 (jump naar #2000) 

N.B. ADRESSEN zijn doorgaans 2 bytes lang. De notering gaat in de machine 
altijd wet éérst het LOW BYTE en daarna het HIGH BYTL. 











Terug naar onze cursus: Alle instrukties, díe tot dusverre genoemd zijn, 
gelden netzogoed voor het Y keg. Dus LDY«O, INY en CMY 

=Probeer nu eens zelf als oefening, een soort wachtlus te bedenken waar- 
bij #fF x AFF maal gewacht moet worden, Gebruik het X én het Y Reg. 


Nóg een instruktie zal ik hierbij uitleggen. Dat is de instruktie om het 
programma beschaafd te laten stoppen. Dat is die KIS instruktie (keturn 
from Subroutine). Hiermede springt het programra terug naar BASIC. Je 
woet je het in het begin ongeveer zó voorstellen: Als je zegt LINK#2600 
dan roep je eigenlijk een subroutine aan. Nu weten we uit BASIC al, dat 
je een subroutine af moet sluiten met een RETURN. kn zo doe je dat ook in 
machinetaal. 'LINKen' van een program, dat eindigt met BRK geeft een 
ERROR, Dit komt omdat de BASIC-INTERPKETOR (spreek uit intùrpr'tr) zelf 
een BRK schrijft, wanneer hij een fout ontdekt en springt daarmee naar de 
ERROR-HANDLER (het fouten-afwikkelsysteem), Als je nu zélf met LINK naar 
een subroutine springt, waar al een BRK instaat, dan schrijft hij er nog 
een EEK achteraan en springt naar de Error Handler, Die maakt er een 
ERROR van en -omdat er eigenlijk geen fout is- verzint die er maar een 
nummer bij, bev. 12, 


SANENVATTING deel 3: 
INMIDIATE ADRESSERING LDA: f2A , CiPef7C 





OLUTE ADRESSERING LDA{BOO2 , CPY#8000 
IKPLIED ADKESSERING INX , DEX , INY , DEY (deekriement Y) 
RELATIEVE ADRESSERING BE&LLO , BNELL4 , BCCMM3 
(BNE = BRANCH IP not EQUAL BCC = BRANCH als CarryFLAG = 0) 


Verder:-Bij sprongen vóóruit moeten we 2x assembleren -Ken programma 
sluiten we af met KTS -De Monitor is een schitterend hulpmiddel, 


De WACHTLUS ÁFF x {PF naal zou er als volgt uit kunnen zien: (Probeer 
zelf alle overbodige dingen eruit te halen. Bedenk daarbij dan #FF+1=0. 
Herinner ook,dat als X of Y U wordt, de 4 Flag geset wordt, dus 1 wordt). 





N.E en Flag O maken heet 'resetten' of "CLEAR' b.v. CarryFlag. 
1ODiLL2 keserveer plaats voor 2 labels 
20308 ,a;G0S.a Doorloop program 2x 
30E, 
100aP={2300 Beginadres ass. code 
TIOËLDXA/00 Load keg.X met getal O 
120:LLOLDY #00 Load Reg.Y met getal O 
130:LL1INY Y=Y+1 
140CPY- FF Is Y gelijk aan {FF ? 
150BNELL1 Zo niet, spring naar 130 
1EDINX XeX+1 
VIOCPX: FF Is X gelijk aan #FF 2 

180BNELLO Zo niet, spring naar 110 
+9ORTS Keer terug vanwaar je kwam 


2001; REPERN 


SUCCES tt Leendert Bijnagte 


INLEIDING: 

De bedoeling van dit simulatie programma is de 'beginner! inzicht te ge- 
ven in hoe de microprocessor werkt, Dit programma laat vooral zien dat 
een bep. 'BYTE' in het geheugen van de processor 3 functies kan hebben: 
a) Een gecodeerde instructie, b) Een gedeelte van ket adres van een 
bep. geheugenplaats, c) Gegevens die de processor verwerkt of modifi- 
ceert tijdens de uitvoering van een programma. 

BYTE: Een groep van & opeenVolgende bits die als één eenheid wordt ver- 
werkt en één geheugenplaats inneemt. 

De gesimuleerde processor heeft 50 geheugenplaatsen. Elk van deze geheu- 
genplaatsen kan een enkel decimaal getal bevatten, De inhoud van het 
geheugen en van de accumulator is continu zichtbaar, evenzo de toestand 
van de ‘carry' en van de ‘input en output!’ poorten, 

CAKRY: Toestandbit in het toestandsregister van de centrale verwerkings 
eenheid (CPU) dat aangeeft of het resultaat van een rekenkundige bewer- 
king in de ALU (Schakeling in de processor waarin de rekenkundige en lo- 
gische beweringen worden uitgevoerd.) groter is dan het grootste getal 
dat kan worden weergegeven. 

De instructieset van de PEEKO is beperkt tot 10 instructies, die veelal 
overeenkomen met de instructies van de 6502, Maar deze 10 instructies 
kunnen, indien gewenst, veranderd worden. 

Het opsporen en verwijderen van Fouten (debuggen) wordt aanzienlijk ver- 
gemakkelijkt door de mogelijkheid het. programma stap voor stap uit te 
voeren, Hierbij geeft de cursor (program counter) de volgende instructie 
aan die moet worden uitgevoerd, 

PROGRAM COUNTER: Een register, dat het geheugenadres van de volgende in- 
structie die in het computerprogramma uitgevoerd moet worden, bevat. 

Als u eenmaal de PEEKO-computer en al zijn mogelijkheden onder de knie 
hebt is het eenvoudig om echte machinetaal programm}s te schrijven voor 
de 6502, 


WAT DOEN MICROPROCESSORS: 

1} Een microprocessor gebruikt een aantal geheugenplaatsen. Iedere g: 
heugenplaats bevat één byte. Voor de PELKO-computer is iedere byte é 
enkel decimaal getal. 

2) Elke geheugenplaats heeft een eigen adres. Bij de PELKO-computer wordt 
het adres aangegeven met twee decimale getallen, Ve computer leest deze 
uit van links naar rechts en rij voor rij, Deze adressen zijn bv.: 00,01, 
02,.....,48,49. De inhoud van zo'n adres kan bv, voorstellen: a) Een in- 
structie, De PELKO kent 10 verschillende instructies O t/m 9. b) zen ge- 
deelte van een Ander adres. Er zijn 2 bytes nodig om een adres aan te ge- 
ven. c) Gegevens die de processor kan verwerken of modificeren tijdens 
de uitvoering van een programma. 

3) De processor zelf heeft registers die gebruikt worden tijdens de uit- 
voering van een programma, De PEEKO heeft in tegenstelling toò de 6502 
maar één register en wel de accumulator (accu). 

REGISTER: Een hulpgeheugen of deel van een geheugen dat meestal de capa- 
citeit heeft van een computerwoord en dat een speciale functie heeft in 
de computer. 

4) Enkele speciale adressen kunnen gebruikt worden om informatie uit te 
wisselen met de 'buitenwereld', de zgn, input- en outputpoorten. In de 
PEEKO heeft de inputpoort het adres 9 en de outputpoort net adres 99. 


PEEKO MONITOR: 
Als u net PEEKO programma geladen en ‘gerund' heeft, dan hebt u toegang 


e- 
én 








tot de PEÉLKO-monitor, 

MONITOR: Programmatuur of apparatuur die de juiste uitvoering van een 
programma bewaakt en controleert, gewoonlijk d.m.v. stelselmatige checks 
met een zgn. diagnostic routine die antwoord geeft op vragen omtrent de 
programmatuur. Of eenvoudiger: Programma dat de basissysteemcommando's 
interpreteert en uitvoert. U kunt de monitorcommando's invoeren middels 
de hierna volgende (code)-toetsen. 

0-9 Elke cijfertoets verandert de inhoud van de geheugenplaats die 
door de cursor wordt aangegeven. De cursor gaat dan naar de volgende ge- 
heugenplaats. Bovendien hoort u een piepje dat aangeeft dat de ingevoerde 
gegevens geaccepteerd zijn. Van elke ingevoerde instructie wordt ook de 
mnemonie getoond (in de linkerbovenhoek van het scherm). Dit eventueel 
met de daarvoor benodigde argumenten, 

G (GO) Laat de PEEKO het programma dat in het geneugen staat uitvoe- 
ren, beginnend op de geheugenplaata O, Dat gebeurt totdat er in het pro- 
granma een BRK-instructie voorkomt of totdat u de K-toets indrukt. 

E (ESCAPE) Als de PELKO in de 'RUN'-status is stopt het k-commando de 
uitvoering van het programma en de PEEKO wordt teruggebracht in de READY- 
status. 

SPATIE Door de spatie-toets te gebruiken wordt het programma stap 
voor stap uitgevoerd en elke uit te voeren instructie wordt in de linker- 
bovenhoek van het scherm getoond. 

FP (FAST) Hetzelfde als G, alleen wordt het programma sneller uitgevoerd. 
SS T Controle toetsen om de cursor op iedere willekeurige positie 
op het scherm te plaatsen. 

© (ORIGIK) Plaatst de cursor op geheugenplaats 0. 

5 (SAVE) Door het S-commando kunt u een PhhKO-programma in het 'graphics! 
geheugen van de ATOM laden, Dit commando moet gevolgd worden door een de- 
cimaal getal van O t/m 9 om het programma te identificeren, Als u over 
níet meer dan 3K 'graphics'-geheugen beschikt kunt u alleen de getallen 
0 t/m 3 gefiruiken. , 

L (LOAD) Dem.v. het L-commando gevolgd door een decimaal getal kunt u 
een programma uit het geheugen van de ATOM laden in de PrLKO-computer. 
(Zo kunt u bv. ook de demonstratie programma's: ADD,COPY,FACTOK eerst la- 
den in het 'hoge' geheugen van de ATOM en vervolgens middels dit commando 
laden in de PEEKO-computer,) 

I Biedt de mogelijkheid de instructie set van de PELKO te ver- 
anderen. Naast de standaard set van 10 instructies beschikt de PrkKO over 
een extra set van 10 instructies. klke standaard instr. kan vervangen 
worden door een.instr. uit de extra set, Als de PEEKO in deze mode (I) is 
kunt u door het 'S' commando teruggaan naar de standaard instr, set. 

P (PRINT) Door dit commando kunt u het programma dat zieh in het geheu- 
gen van de PEEKO bevindt via de printer laten afdrukken, Als u gebruik 
maakt van een Acorn GP-60 printer gebeurdt dit met extra grote letters. 
Voor andere printers is misschien een verandering van de programma regels 
9400 tot 9410 noodzakelijk. 

N (NEXT) Met dit commando kunt u een programma regel voor regel 'lis- 
ten', waarbij iedere mnemonic op de regel onder 'RUN' op het scherm ge- 
toond wordt. 

> Hiermee kunt u een programma en de toegepaste instr, set op 
cassetteband zetten, Dit commando vraagt eerst om een door u in te voe- 
ren filenaam. 


< Hiermee kunt u een programma van cassetteband laden. Ook dit 
comnando vraagt eerst om een door u in te voeren filenaam. 
INSTRUCTIES: 


Elke instr. heeft een ‘naam! van 3 of 4 letters, deze 'naam' wordt mne- 


monic genoemd. De mnemwonic is doorgaans een alkorting van de beschrij- 
ving van wat de instr, doet. De verschillende instr. hebben specifieke 
gegevens nodig die achter de instr. moeten worden opgegeven. Som:ige in- 
str. hebben 2 bytes nodig, Om het adres aan te geven van de geheugen- 
plaats waar de instr. betrekking op heeft. De instr. 'STA' (bewaar de in- 
houd van de accu) moet bv. gevolgd worden door het adres van de geheugen- 
plaats waarin de informatie moet worden opgeborgen, 
INSTRUCTIE STA € 2 0 4P ADRES 40 


BELANGRIJK: Bij de PEkKO-computer moet de laagste byte van een adres 
eerst opgegeven worden. De instr. voorafgaand aan de adrescode interpre- 
teert dit echter als de normale schrijfwijze, VOORBEELD: Ket adres "40! 
moet aan de PEEKO worden opgegeven als 'O4!. 

Sommige instr, worden ‘onmiddellijk! gevolgd door een enkele byte, die 
dan de data voorstelt die door de instr, moet worden gebruikt. VOORSE&LD: 
De ‘laad de accu direct met! (LDAY®) instr, moet worden gevoigd door het 
getal dat moet worden geladen, 

Sommige instr. hebben helemaal geen data nodig. VOORBEELD: De instr. 
‘clear carry' zet de waarde O in de ‘carry flag'.(De carry flag is een 
register dat ongeveer het zelfde doet als bv,: 'het 1 ontnouden bij op- 
tel sommetjes') 


INSTRUCTIE-SEI: 
De standaard instructie-set van de PEEKO is als volgt: 


0 BRK Stop het programma en.za door naar de monitor, 

1 LDA xx Zet de inhoud van adres xx in de accu. 

2 STA xx Zet de inhoud van de accu in de geheugenplaats met adres xx. 

3 CLC Geef de carry flag de waarde O0. 

4 ADC xx Tel de inhoud van geheugenplaats xx, met inachtnezing van de 
earry, op bij de inhoud van de accu. 

5 DEC xx Verlaag de inhoud van adres xx (met 1). 

6 INC xx Verhoog de inhoud van adres xx (met 1). 

7 LDA&x Laad de accu ‘onmiddellijk’ met het getal (de waarde) x. 

8 JNE xx Spring naar het adres xx als het aan de instr. vooraf gaande 


resultaat (van een bewerking) niet gelijk is aen nul. 
9 JMP xx Spring naar adres XX. 


PROGRAMMA'S : 

Een programma bestaat uit een opeenvolging van instr, die door de pro- 
cessor een voor een uitgevoerd worden en wel beginnend bij het laagste 
adres. Dit gebeurt totdat de processor een BRK instr. tegenkomt. De 
‘spring' instr, is ontworpen om deze volgorde te kunnen veranderen en 
dus de processor zijn volgende instr, te laten halen van een achter de 
‘spring' instr. nader gespecifixeerd adres. 


HET PROGRAMMEREN VAN DE PEEKO: 

Het hierna volgende laat zien hoe u de instr. van de PEEKO kunt gebrui- 
ken, D‚.m,v, een demonstratie programma zal het gebruik van de meeste in- 
str. aan u worden duidelijk gemaakt, Elk programma dat behandeld wordt 
zal worden opgeschreven als een serie mnemoniecs, gevolgd door de bijbe- 
horende machinecode en in de meeste gevallen door een tekening van het 
beeldscherm. 

VOORBEELD 1; Het optellen van twee getallen. 


plaats mnemonic code Begin op plaats 0,0 en typ de code in. Let 
00 LDA 40 104 erop dat iedere instr. op het scherm ver- 
03 CLC 3 schijnt onder het woordje 'kUN'. Typ ver- 
04 ADC 41 414 volgens de twee getallen in die moeten 

OT STA 42 224 worden opgeteld op de plaatsen 40 en 41. 

10 BRK le) Gebruik om op die plaatsen te komen de cur= 


sor-controle toetsen, Als u het programma ‘stap voor stap’ wilt laten 
‘draaien! gebruik dan de spatie toets. Wanneer u nu de spatie toets op- 
nieuw indrukt wordt de eerste instr, (LDA 40) uitgevoerd, Deze instr. zet 
de inhoud van geheugenplaats 40 in de accu. De volgende instr. (CLC) 
maakt de inhoud van de carry 0, De ADC instr, telt de inhoud van adres 41 
op bij de inhoud van de accu (met O carry) en verandert de inhoud van de 
accu in het resultaat van de optelling, De STA instr. zet vervolgens dit 
resultaat (dus de huidige inhoud van de accu) in geheugenplaats 42. Ten- 
slotte stopt de BRK instr. het programma. Als u voor dit optel programma 
getallen kiest die groter zijn dan 10 dan zal adres 42 alleen het laatste 
digit (cijfer) bevatten en wordt de carry op 1 gezet. Als u voorbeeld 1 
‘gerund! hebt, dan ziet u het nierna volgende schermbeeld: 

READY INPUT PORT OUTPUT PORT 


PROG 9% 0 99 0 
RUN 
LDA 40 CARRY O ZERO O 7 
O1 0 4 3 4 1 4 2 2 4 
10 9 0 0 0 0 0 0 0 
‘2 0 0 0 0 0 0 0 0 0 
3 0 0 a 0 0 0 0 0 0 0 
0 0 0 O0 0 8 U 

EN 

Qt 2 3 4 5 6 71 8 9 


VOORBE-LD 2: Het optellen van 2 uit 2 digits bestaande getallen. 
Dit programma telt de getallen op die op de geheugenplaatsen 40,41 en 42, 
43 en zet het resultaat in de geheugenplaatsen 44,45,46, 


plaats mnemonic code READY INPUT POhT OUTPUT PORT 
a) CLC 3 PROG Je 0 99 0 
91 LDA 41 114 RUN 
04 ADC 43 4 34 CLC CAKKY O ZERO O ACC 1 
07 STA 46 264 » 
15 LDA 40 104 O0 3 1 1 4 4 3 4 2 6 4 
13 ADC 42 424 1 0 4 4 24 25 4 7 
16 STA 45 254 
19 LDA «0 zó 2 04 0 2 2 4 4 0 0 O0 
21 ADC 20 AD e2 3 0 0 0 000 vo 0 
24 STA 44 244 

6 1 
27 BRK 0 4 d 6, = 13 L 900 
let scherm voor voorbeeld 2 01 2 3 4 5 6 7 é 9 


In dit programma wordt een nieuwe instr, gebruikt. Dit is de LDA® instr. 
Deze instr. 'laadt de accu onmiddellijk! met de byte die de instr. volgt. 
In dit geval 0, 


PRORLEEN 1: 

Schrijf een programma met gebruik van de instr. LDA,STA,ADC en CLC dat de 
getallen optelt die staan in de geheugenplaatsen 40, 41 en 42 en het re- 
sultaat, dat bestaat uit 2 digits, in de geheugenplaatsen 43 en 44 zet. 


VOORBEELD 3: Aftel programma, 
iet volgende programma trekt van de inhoud van geheugenplaats 40 telkens 


1 af. Dit gebeurt in een onafgebroken lus, LET OP!I!t Q-1=9 

plants mnemonic code In dit programma komen 2 nieuwe instr, voor 
20 DEC 49 59 4 nì, DEC en JUP. DEC trekt één af van de in- 
03 JP O0 800 houd van een gespecificeerde geheugenplaats, 


in dit geval 40, JUP laet het programma verder gaan op een geheugen- 
plaats die achter de instr. gespecificeerd wordt, in dit geval 00. Deze 


instr. komt overeen met de GQTO instr. in BASIC. Omdat dit programma één 
continu tus is, moet E worden ingetypt om uit de 'RUN-modus! te ontsnap- 
pen, Door 'F! in te typen inplaats van de spatie toets zal de PLEKO het 
programma uitvoeren zander te stoppen na elke instr. 

VOORBEELD 4: Tel terug vanaf 99. 

Dit programma telt terug naar OQ vanaf een geval dat in de geheugenplaatsen 
409 en 41 staat, Bij O stopt het programma. 


plaats mnemonic code READY INPUT PORT OUTPUT PORT 
00 DEC 41 514 PROG ga 0 99 0 
03 JNE 00 500 RUN 
06 DEC 40 504 DEC 41 CARRY O ZERO O ACC 1 
09 BRK 0 06 1 4 9 0 0 5 0 9 
40 3 1 0 6 0 0 0 0 0 0 0 
#1 9 / 2 ooo ooo ooo oe 
Tekening van het scherm voor dit 3 0 0 0 0 9 08 0 0 
programma. 4 9 9 6 O0 U OG ECE GV 
counter 
102 3 4 5 6 7 8 9 


Als u ait programma uitvoert let er dan wel op dat als de inhoud van ge- 
heugenplaats 41 nul wordt, de inhoud van de 'zero-flag' 1 wordt, De in- 
houd van de zero-flag wordt 1 als de uitkomst van een wiskundige bewer 
king nul is. In aìle andere gevallen is de inhoud van de zero-flag 0. 
ZERO-FLAG: Een flip-flop, die de logische waarde 4 krijgt indien het re- 
sultaat van een instr, de waarde nul heeft, 

De JNE-instr. doet het zelfde als de JMP-instr, behalve dan dat de ‘sprong! 
veroorzaakt &oor de JNE-instr, pas plaats vindt als het resultaat van de 
voorafgaande bewerking O is. In dit programma wordt er t.g.v. deze in- 
str. dan ook tot nul geteld. 

De INC-instr. is ongeveer gelijk aan de DEC-instr., alieen telt deze in- 
str, 2 op bij de inhoud van het adres Aat achter de instr. gespecificeerd 
is. Ook deze instr. zet de inhoud van de zeroeflag op 1 als net resultaat 
nul ie. Door de ánstr, DEC te vervangen door de instr, INC en de inhoud 
van de adressen 40 en 41 op nul te zetten, kan het vooraf gaande program- 
ma van nul tot 100 tellen, 


PROBLEEN 2: 
Schrijf een programma dat telt van 93 naar nul en van nuì naar 100, dit 
in een continu lus. 


NIEUWE INSTRUCTIES: 

De instr, die tot nu toe besproken werden behoorden tot de standaard in- 

str.-set, Maar er zijn 19 nieuwe instr. mogelijk die de oude kunnen ver- 

vangen, Het I-commando van de PEEKO-monitor vraagt naar het code-getal 

van de instr. die vervangen moet worden en naar het code-getal van de 

nieuwe instr. O.a. door deze mogelijkheid kunt u de PkEKO voor allerlei 

taken programmeren, dit ondanks de geringe progremma omvang. De werking 

van de meeste van de nieuwe instr, is eenvoudig te verklaren omdat deze 

instr. vrijwel gelijk zijn aan de instr. van de standaard set. 

SEC Zet 1 in de carry 

SBC xx Trek met inachtneming van de carry de inhoud van adres xx af van 
de inhoud van de accu. 

JCC xx Spring naar adres xx als de carry nuli is. 

JCS xx Spring naar adres xx als de carry 1 is. 

JEQ xx Spring naar adres xx als de zeroefliag | is. 

DECA Trek van de inhoud van de accu 1 af. 

INCA Tel bij de árhoud van de accu 1 op. 


CMP -x Vergelijk de inhoud van de accu direct met x, Als beide gelijk 
zijn, maak Aan de zero-flag 1, zo niet, maak dan de zero-flag 0. 

LDA (xx)Laad de accu met de inhoud van het adres dat wordt aangegeven 
door xx en XX+1, 

STA (xx)Zet de inhoud van de accu in de geheugenplaatsen met het adres 
dat wordt aangegtven door Xxx en Xx+1. 

De laatste 2 instr, zijn indirecte 'load- en store’ instr. Omdat deze in- 

str. wat ingewikkelder zijn dan de andere instr. zal hierna in voorbeeld 

6 uitgebreid aandacht besteed worden. De volgende 5 programma's gebrui- 

ken sommige van genoemde mogelijkheden, Als u deze instr. gebruikt moet 

eerst de instr.-set veranderd worden. Dit wordt voor ieder voorbeelá 

apart aangegeven. 

VOORBEELD 5: Het aftrekken van twee, twee-cijferige getallen, 


De instr.-set verandert als volgt: 3 SEC 4 SBC 

plaats mnemonic code plaats mnemonic code plaats mnemonic code 

oC LDA 41 1 14 07 STA 45 254 16 STA 44 244 

03 SEC 3 10 LDA 40 104 19 BRK 9 

04 SBC 43 434 13 SBC 42 424 

Dit programma berekent het resultaat READY INPUT POkí OUTPUT PORT 

van de opgave: Trek de inhoud van ge- PROG ge O 99 0 

heugenplaats 42,43 af van de inhoud RUN 

van de geheugenplaatsen 40,41 en zet LDA 41 CARKY 1 ZERO O ACC b 

het resultaat in de zeheugenplaatsen 

44,45. Als de carry 1 is betekent dat © | 1 4 3 4 3 4 2 4 

dat het resultaat niet negatief is. tt O0 4 4 2 4 2 4 4 O 

Is de carry nul dan betekent dat,dat 

de inhoud van de geheugenplaatsen 2000000000 

42,43 groter was dan de inhoud van 3 0 0 0 9 0 0 0 0 O0 0 

de geheugenplaatsen 40,41 en dus dat 

de uitkomst negatief is. 4 NG 1 Ì 1 5 6, 9 000 
O1 238 5 6 7 8 9 


VOORBEELD 6: Het indirect adresseren. 

Verander hiervoor de instr.-set als volgt: 1 LDA ( 2 STA ( 

Eit programma maakt gebruik van de zgn, ‘indirect adresseren’. Als de in- 
houd van de geheugenplaatsen 40 en 41 is: O 2 en de inhoud van de ge- 
heugenplaats 20 is: & dan zal t.g.v. de instr. LDA (40) de accu worden 
geladen met de inhoud van geheugenplaats 20, De inhoud van de accu wordt 
nu dus 8, LDA (40) betekent dus: Laad de accu met de inhoud van de ge- 
heugenplaats wasrvan het adres staat op de geheugenplaatsen (in dit ge- 
val): 40 en 40+1, 


plaats mnemonic code Als u dit korte programma draait zult u 
00 LDA (40) 1 0 4 zien hoe indirect adresseren gebruikt kan 
03 STA (42) 2 2 4 worden om de inhoud van een bepaald adres 
of BRK 0 naar een ander adres te brengen. In dit 
20 6 geval van adres 30 naar adres 20, 

41 3 

42 4) 

43 2 


VOORBEELD 7: Het kopieren van een tabel bestaande uit 10 cijfers, 
Het programma dat gebruikt wordt voor dit voorbeeld staat ook op cassette 
en wel onder de file-naam 'COPY'. Het kan ín de PELKO geladen worden 


door het commando * * te gebruiken. Verander de instr.-set als volgt: 

1 LDA { READY INPUT PORT OUTPUT PORT 
2 BPA ( PROG B O 99 0 
plaats mnemonic code RUN 


20 LDA (40) 1 0 4 LDA ( 40 ) CAKRY O ZERO O ACL 8 


03 STA (42) 2 24 0 1 0 4 2 2 4 b O 4 
06 INC 40 6 04 
0 0 0 0 GG 0 U 

09 INC 42 624 "aes x 
12 JNE 00 900 2 Da 2 Ë de 6 7 & 9 O0 
15 BRK 0 vEY From here 

Q 0 0 0 0 0 4 0 0 0 
40 0 3 fan to here 
41 2 4 0 20 3 0 0 0 0 0 0 
42 o 

01 2 6 
43 3 3 4 5 Te 9 


Dit programma laat zien hoe u op eenvoudige wijze, door gebruik te maken 
van het indirect adresseren, toegang kunt krijgen tot een data tabel. Het 
programma kopieert een aantal data. Het begin van deze data rij wordt 
aangegeven op de adressen 40 en 41, De plaats waarnaar de data gekopieerd 
moeten worden wordt aangegeven op de adressen 42 en 43, De data staat op 
de adressen 20 t/m 29 en moeten gekopieerd worden naar de adressen 30 t/m 
39, 

VOORBEELD 6: Het optellen van 2 rijen data. 

Ook dit programma staat op cassette onder de file-naem 'ADD', Verander de 
instr.-set als volgt: 1 _ LDA ( 2 STA ( 1 STA Het programma 
telt 2 rijen data, die al in het geheugen zitten, op en zet de uitkomst 
in het geheugen. Omdat de geheugenruimte van de PEEKO beperkt is worden 
2 rijen data uit het programma zelf opgeteld. 


plaats mnemonic code READY. INPUT PORT OELPUT PORT 
oo CLC 3 PROG Js 0 99 0 
01 LDA (48) 1 8 4 RUN 
04 STA 43 734 ELC CARRY O ZERO © ACC 5 
07 LDA (46) 1 6 4 N 

1 
10 ADC 43 434 0318 Arens 
13 STA (44) 2 4 4 14 3 4 2 4 4 5 ò 4 5 
16 DEC 48 58 4 6 
18 DEC 46 564 2e 4244100 
22 DEC 44 5 4 4 3 0 5 2 7 1 & 0 0 Ò g 
25 JNE 01 9 10 € 
28 BRK 4 0 0 0 1 0 3 0 1 0 0 

2 

44 g 9 3 4 5 6 7 & 9 
nf 3 Ook dit programma maakt uitgebreid gebruik 
Hi 3 van indirecte adressering. 
48 9 
49 ° 


VOORBEELD 9: Zoek de factor van een getal. 

Het programma staat ook op cassette onder de file-naam 'factor'. (In dit 
geval betekent ‘factor! het grootste gehele deeltal (kleiner dan 10).) 
Voor dit programma zijn de volgende veranderingen in de instr.set nodig: 
3 SEC 4 SBC 8 JCC Het programma berekent de hoogste factor 
kleiner dan 10, van ? cijferig getal. Dit getal staat op de geheugen- 
plaatsen 48 en 49 


plaats mnemonic code plaats mnemonic code plaats mnemonic code 
00 LDA 48 184 16 JCC 00 800 32 STA 26 2öe2 
03 STA 28 282 19 LDA:2 0 70 35 JNE 16 96 1 
06 LDA 49 194 21 SBC &7 474 3d LDA 20 19 2 
ga SPA 20 202 24 STA 29 202 41 JNE 16 861 
12 DEC 47 574 27 LDA O0 70 44 BRK 0 
15 SEC 3 29 SBC 46 4 6 4 46 o 

47 Ö 


Zet het getal waarvan u de factor wil berekenen in de geheugenplaatsen 46 
en 43, 


READY INPUT PORT OUTPUT PORT 


PROG 98 0 99 0 Schrijf een programma dat 2 getallen 
RUN met elkaar vermenigvuldigt m.b‚v. de 
LDA 48 CARRY O ZERO O ACC 5 optel-functie, 
0 1 8 4 2 8 2 1 9 4 2 PROBLEEN 4: 
Schrijf een programma voor de PEEKO 
1025 7 4 3 8 0 0 7 dat een twee cijferig getal deelt 
2 04 74202 To 4 door een getal dat uit één cijfer 
bestaat, U hebt daarvoor in ieder 
3 6 4 2 8 2 9 6 1 1 0 geval de instr. SBC en SEC nodig en 
A 2 9 6 A 0 ze 0 B) EN 6 waarschijnlijk ook nog enkele andere, 
actor” number bruik hierbij t TOR- 
or 2 3 a sE Te 9 Gebruik hierbij het PACTOR-proagramma 


als voorbeeld, 


INVOER EN UITVOER POORTEN : 

INPUT: Het ‘vaer! van een centrale verwerkings eenheid dat via een toet- 
senbord of een extern geheugen wordt overgebracht naar het interne geheu- 
gen. 

OUTPUT: De uitvoer van data naar randapparatuur of extern geheugen. 

Deze 2 poorten, die gebruikt kunnen worden via de geheugenplaatsen 98 en 
99 van de PLEKO-computer, komen overeen met de A- en B-poort van het 

6522 VIA IC. Dit 1C kan in de ATOM geplaatst worden. De ingangspoort 
‘leest! in principe 4 bits van poort A in en zet deze op geheugenplaats 
8 van de PEEKO. Als de invoer groter is dan 10 dan wordt deze terugge- 
bracht tot één cijfer en wordt de carry-flag op één gezet. De uitgaande 
poort '99', gebruikt de VIA-poort B. Omdat een eventueel aangesloten 
printer ook het 6522 IC gebruikt, moet u alle andere aan dit IC aange- 
sloten apparatuur afkoppelen en de printer aansluiten als u een afdruk 
van het programma op p=spier wil hebben, 


ANTWOORDEN OP PROBLEMEN : 


PROBLEEM 1 PROBLEEM 2 

plaats mnemonic code plaats mnemonic code 
00 CLC 3 oo DEC 41 514 
01 LDA 44 104 03 JNE OQ 900 
08 ADC 41 414 06 DEC 40 504 
07 STA 44 244 09 JRE O0 900 
10 LDA! 0 To 12 INC 41 614 
12 ADC 11 411 15 JNE 12 921 
15 STA 43 234 16 INC 40 604 
18 LDA 44 144 21 JNE 12 921 
21 ADC 42 424 24 JMP OO 80u 
24 STA 44 244 

27 LDA 43 134 

30 ADC 11 411 

33 STA 43 234 

36 BRK 0 


FORTH 


DEEL 1 
WAT IS FORTH? 


FORTH is een prograameertaal, die ongeveer 13 jaar geleden door C.d,moore 
is uitgevonden. De taal is zeer geschikt voor het besturen van apparatuur 
m.b.v. een computer, De meeste hogere programmeertalen zijn daarvoor te 
traag en het schrijven van mechinetaal routines is lastig. 
Enkele eigenschappen van FORTH (op al deze eigenschappen komen we terug) 
zijn: - FORTH programma's hebben een hoge executie=snelheid 

- FORTH heeft weinig geheugenruimte nodig 

- FORTH is uitbreidbaar 

- FORTH is interaktief 

— FORTH is een gestructureerde taal 


DE STACK 
Voor de berekeningen gebruikt FORTd een STACK (de parameter-stack). Dit 
betekent: - alle getallen die worden ingetikt, komen boven op de stack. 


- alle operaties halen getallen ven de stack en zetten het re- 
sultaat van de bewerkingen weer op de stack, 
We zullen een voorbeeld bekijken, 
We tikken in: 2463 
De getallen 2,4,6,3 staan nu op de stack, de 3 bovenop en de 2 onderop. 
Vervolgens tikken we:+ 
Nu worden de 6 en de 5 van de stack genaald en de som (6+3=} 9 weer op 
de stack gezet, Deze bevat nu dus de getallen 2,4,9. 
Typen we nu MAX 
Dan worden 4 en 9 van de stack genarld en hun maximum (=94) wordt terug- 
gezet, De stack bevat nu de getailen 2,9. 
We typen nu: - 
De getallen 2 en 9 worden van de stackgehaald en hun verscnii (2-9=) -7 
wordt weer teruggezet. 
Als we nu intypen: . 
Dan wordt het bovenste element (-7) van de stack gehaald en afgedrukt. 
De stack ie nu leeg. Kortom, het uitrekenen en afdrukken van 2-MAX(4, 
643) gaat in FORTR met: 2 4 6 3 + MAX - . (ret) Op het berldscherm zal 
dan te zien zijn: 246 3 + HAK = « -7 Ok 
Als de opdracht op de juiste manier is uitgevoerd reageert FORTH altijd 
met "OK", 
Van dit voorbeeld kunnen we verschillende dingen leren: 
- De stack werkt volgens het “LAST IN FIRST-OUT" prancipe. Dit betekent 
dat het getal, dat het laatst op de stack is gezet, er als eerste weer 
wordt afgehaald. We kunnen dit vergelijken met een stapel borden!! 
- De spatie is in FORTH een scheidingsteken. De verschiilende gevailen 
worden alleen door een spatie gescheiden. 
— ACORN-FORTH werkt alleen met integer getallen. Er bestaan Fûhln-versies 
Aie ock met 'FLOATING-POINP! getallen kunnen werken. ACCRN-FORTI 
wel enkele- als dubbele-precissie integers. Op het verschil komen we nog 
terug; voorlopig beperken wij ons tot de enkele-precisie getalien. Dit 
zijn 16 bits getallen, zodat de waarde die ze kunnen aannemen ligt tussen 
-32768 en 32767 (ofwel tussen O en 65535, indien we ze beschouwen als ge- 
tallen zonder teken). 
- FORTH is op de manier zoals we hebben voorgedaan te gebruiken alsof net 
een rekenmachine is. FORTH gebruikt een POST-RIX notatie, die ae gebrui- 
kers van i,P. rekenmechines bekend zel voorkomen. 
We zullen een aantal STACK-OPERATIES op een rijtje zetten: 
+ berekent de som van de bovenste 2 elementen. 
- berekent het verschil van de bovenste 2 elementen. 
E berekent het product van de bovenste 2 elementen. 






£ berekent het quotient van de bovenste @ elementen. 


KOD berekent de rest van de deling van de bovenste 2 elementen. 

MAX neemt de grootste van de bovenste 2 elementen, 

BIN neemt de kleinste van de bovenste 2 elementen. 

ABS berekent de absolute waarde van het bovenste getal. 

KINUS draait het teken van het bovenste element om. 

1e telt f op bij het bovenste element, 

2+ telt 2 op bij het bovenste element. 

er vermenigvuldigt het bovenste element met 2. Dit is sneller dan: 
2x 


Dit waren enkele rekenkundige bewerkingen, maar er zijn ook andere be- 
werkingen op de stack mogelijk: 

DEP dupliceert het bovenste element. 1 2 DUP geeft: 1 2 2 

DROP verwijdert het bovenste element. 1 2 3 DROP geeft: 1 2 

SWAP verwisselt de bovenste 2 elementen. 1 2 SWAP geeft: 2 1 


OVER copieert het 2e element van dr stack bovenop de stack, 
6 4 3 2 OVER geeft: 6 4 3 2 3 
ROT verwijdert het 3e element en plaatst het bover op de stack. 


4 5 6 7 B ROT geeft: 4 5 75 6 
I PICK copieert het I-de element van de stack naar de top van de stack. 
1224 5 6 4 PICK geeft: 1 2 34 5 6 3 
Ï ROLL verwijdert het 1-de element en plaatst net boven op de stack. 
1 2 3 4 5 6 4 ROLL geeft: 1 24 56 3 
We zien nu dat: 1 PICK is equivalent aan DUP 
2 PICK is equivalent aan OVER 
2 ROLL is equivalent aan SWAP 
3 KOL is equivalent aan KOT 
FOETH kent ook logische operatoren: 
AND berekent de bit-voor-vit logische AND van de 2 bovenste elementen. 
15 21 ARD geeft: 5 
CH berekent de bit-voor -bit logische OP van de 2 bovenste elementen. 
15 21 OR geeft: 31 
LOR berekent de bit-voor-bit logische exclusieve-OF van de bovenste 2 
elementen. 15 21 XOR geeft: 26 


INPUT EN OUTPUT IN FORTH: 

PORT] kent de volgende INPUT/OUTPUY routines: 
haalt het bovenste getal van de stack en drukt net af. 

zin haalt het bovenste getal van de stack en srukt het af, als ASCII 
character. 64 DUF BUIT . geeft:= 64 OK 


gee 


KEY leest een character in van het toetsenbord en zet het als getal 
op de stack, 

…* drukt een tekst af, De tekst moet worden afgesloten met * 
«" HALLO" geeft: HALLO 

CR spring naer het begin van de volgende regel. 


Inwendig rekent ACORN-FONTH altijd binair. De input en output kan echter 
geschieden in elk gewenste talstelsel. Standaard zijn aanwezig de 'deci- 
male! en de 'hexa-decimale' basis. Omschakelen gebeurt via de commando's 
PHEX* en “DECIMAL". Hoe je ken overgaan op een ander talstelsel komt nog. 


HET PROG ANKEREN IN FORTH: 

Programmeren in PORTH is eigenlijk niets anders dan het toevoegen aan de 
standaard-FORTH functies van je eigen functies, Als je vindt dat een 
functie ontbreekt, dan maak je hem gewoon zelf t Deze zelf-gemaakte func- 
ties zijn dan op dezelfde manier te gebruiken als de standaard functies. 
We demonstreren dit weer aan de hand van een voorbeeld: 

Ke typen in: : XI2 DUP x ; 

at hebben we nu eigenlijk gedaan: 








: geeft aan dat we een nieuwe functie gaân definieren. 
xF2 dit is de naam van onze nieuwe operator. Deze wordt altijd meteen 
na de : gezet. 
DUP x= dit is wat de nieuwe operator moet doen, In dit geval moet dus het 
kwadraat van het bovenste getal op de stack worden berekend, 
5 hiermee wordt de definitie afgesloten. 
Typen we nu vervolgens: 5 Xe . 
dan zal de computer antwoorden met: 25 OK. 
We zien dat de nieuwe functie op dezelfde manier gebruikt wordt als de 
standaard-FORTH functies. Hij kan dus ook in alle daarna volgende defi- 
nities gebruikt worden, Bv.: : XP4 Xt2 Xt2 ; 
3 XM geeft nu: 81 OK 

In ACORN-FORTH mag een naam van een functie max. 31 karakters lang zijn. 
Een naam kan nooit spaties bevatten. 
Een FORTH programma bestaat uit een rij zelf-gemaakte functies, die 
steeds verder gecombineerd worden, Het gehele FOKIK programma wordt uít 
eindelijk gerepresenteerd door een enkel woord. Om een programma in FORET 
te schrijven, moet de taak van het programma in steeds kleinere taakjes 
worden verdeeld. Uiteindelijk blijven dan zeer kleine taken over, die 
makkelijk in FORTH kunnen worden geschreven. Deze worden dan gecombineerd 
tot een heel computer-programma, Wij zullen hiervan nog voorbeelden zien. 
We zullen nog een operatie definieren: A 
He hebben nu de operatie "-" gedefinieerd als "vermenigvuldig met 3". We 
zien dus dat verschillende functies dezelfde naam mogen hebben. Alleen de 
laatste definitie van een functie kunnen we gebruiken, dus: 
Als we intypen: 53 - 
den zal de computer reageren met: 3 OK 
We kunnen nu dus niet meer 2 getallen van elkaar aftrekken. Daarom is er 
een functie in FORTH, die zorgt dat we deze definitie ongedaan kunnen 
maken: FORGET X4 FORTH ís nu “Xt4" en alle latere definities vergeten 

De standaard-POkTH functies zijn beschermd, 

FORGET DROP levert een foutmelding Op. 
Als we willen weten welke definities we ter beschikking hebben dan kunnen 
we gebruik maken van: 
VLIST we krijgen dan een lijst van alle zelf-gemaakte en aîfe standaard- 

FORTH definities. 








VARIABELEN IN FORTH: DEEL 2 


Het is in FORTH ook mogelijk om variabelen te gebruiken. 4e worden op de 
volgende manier gedefinieerd: A4 VARIABLE HOEVEEL 
De variabele met de naam "HOEVELL" hebben we gedefinieerd en we hebben 
hem om te beginnen de waarde 44 gegeven. Als we de waarde van "HOEVEEL" 
willen gebruiken ineen berekening, dan moet deze waarde eerst op de stack 
worden gezet: HOEVEEL @ 
Op de top van de stack staat nu de waarde van PLOEVEEL" (=44). det ver- 
anderen van de waarde van een variabele gaat op de volgende manier: 
HOEVEEL ! 
Het bovenste getal is nu van de stack gehaald en aan de variabele "H0k- 
VEEL" toegekend. We kennen nog een bewerking voor variabelen: 
1 HOEVEEL +! 
De waarde van "HOEVEEL" is nu met 1 opgehoogd. 


DE “DO-LOOP" IN. FORTH: 

We zullen een voorbeeld laten zien: : TELLER 6 1 DO I . LOOP ; 
Wat is er gebeurd? 

B dit geeft aan dat we een nieuwe functie definieren. 
TELLER dit ís de naam van de nieuwe functie, 


6 1 de getallen 6 en 1 worden op de stack gezel. 

Do dit is het begin van onze “DO-LOOP". De getallen 6 en 1 worden 
van de stack gehaald, De LOOP-index krijgt om te beginnen de 
waarde van het bovenste getal (=1). Zodra de LOOP-index de waar- 
de van het 2e getal (=6) bereikt, wordt er gestopt. 

I de waarde van de LOOP-index wordt op de stack gezet. 

. het bovenste getal wordt van de stack gehaald en afgedrukt. In 
dit geval is dat dus steeds de LOOP-index. 

LOOP dit markeert het einde van de "DO-LOOP", De index wordt met 1 
verhoogd en we gaan terug naar "DO", 

H einde van deze definitie. 

Typen we nu in: TELLER 

dan zal de computer reageren met: 1234 5 OK 

We moeten op de volgende dingen letten: 

= Een DO-LOOP kan alleen binnen een definitie gebruikt worden. 

= DO haalt 2 waarden van de stack, Hoe deze waarden daar gekomen zijn 

doet er niet toe. Ze mogen dus ook buiten de definitie, waarin de DO- 
LOOP voorkomt, op de stack worden gezet. 

- DO-LOOP's mogen genest worden. De functie “I" zet altijd de waarde van 

de index van de binnenste DO-LOOP op de stack. 

Nog een paar v.b.: z TAFEL 11 1 DO DUP I # . LOOP ; 

3 TAPEL geeft: 36 9 12 15 1 24 24 27 30 OK 
z WACHT O DO LOOP ; 

& WACHT geeft: een korte pause 

3000 WACHT geeft: een lange pause 


DE IF-ELSE-THEN CONSTRUCTIE: 
Oox de IF-ELSE-THEN constructie kan alleen binnen een definitie voorkomt, 


We bekijken een v.b.: zr GELIJK? = IF ." GELIJK " ELSE «” ONGELIJK * THEN 
Wat is er gebeurd? 
GELIJK? dit is de naam van de definitie, 


= de 2 bovenste getallen worden van de stack gehaald, Als ze 
gelijk zijn, dan wordt er een getal op de stack gezet dat: 
de logische waarde "WAAR" representeert, en als ze ongelijk 
zijn, dan wordt er een getal op de stack gezet met de logi- 
sche waarde "NIET-WAAR", 

IF er wordt getest of op de stack de logische waarde "WAAR" 
staat. Als dit zo is dan worden de operaties tussen "IF" en 
"ELSE" uitgevoerd, Staat op de stack de logische waarde 
YNIET-WAAR", dan worden de operaties tussen "ELSE" en "THEN" 


uitgevoerd. 
«" GELIJK * druk af "GELIJK", 
LISE onderdeel van IF-THEN-KLSE constructie. 
«" ONGELIJK “ druk af "ONGELIJK", 
TAÄEN afsluiting van de IP-FHEN-ELSk constructie, Na het uitvoe- 


ren van de operaties tussen "IF" en "ELSL" of tussen "ELSE" 
en "THEN", gaat het programma verder met de operaties na 


PEHEN", 
H afsluiting van de definitie. 
3 5 GELIJK? geeft: ONGELIJK OK 
7 7 GELIJK? geeft: GELIJK OK 


Binnen PORTE wordt de logische waarde "NIET-WAAR" gerepresenteerd door 
het getal O, Ieder getal ongelijk aan nul representeert de logische waar- 
de "WAAR", De relationele operaties in FORTH, waartoe ook de operatie "e=" 
behoort, zetten op de stack het getal 1 als de uitkomst moet zijn "WAAR", 
Dus: . geeft: 0 Ok 

. geeft: 1 OK 


nt 
nn 


un 


FORTú kent de voigende relationele operaties: 

Oz zet een 1 op de stack als het bovenste getal gelijk is aan 0. Is 
het bovenste getal niet gelijk aan O, dan komt er een OQ op de stack. 

04 zet een 1 op de stack als het bovenste getal negatief is. Is het 
bovenste getal niet-negatief dan komt er een CQ op de stack, 

= zet een | op de stack als de 2 bovenste getallen gelijk zijn. Gijn 
de 2 getallen ongelijk dan komt er een O op de stack. 

< zet een | op de stack als het bovenste getal kleiner is dan het 2e 
getal op de stack. In alle andere gevallen komt er een O op de stack 





> zet een 1 op de stack als het bovenste getal groter ís dan net 2e 
getal op de stack, In alle andere gevallen komt er een ú op de stack, 

55 Ce geeft: 0 OK 

0 Oz . geeft: 1 OK 

8 OK … geeft: 0 OK 

=153 O6. geeft: 1 OK 

BEGIN-UNPIL: 

We bekijken een v.b.: z DRUK-AF-TOT-O BEGIN DUP « O= UNIIL 5 

Verklaring: 

+ DRUK-AF-TOT=O is het begin van de definitie, 

BEGIN dit is het begin van de BAGIN-UNTIL constructie. 

DUP . druk het bovenste getal van de stack af, 

Oz kijk of div getal zelijk is aan U. 

UNTIL ga door totdat de voorgaande test het antwoord "WAAR" 


oplevert. Als de voorgaande test “NIET-WAAR" oplevert 
ga dan terug naar "BEGIN", 
einde van de definitie, 
Î230473 1 DRUK-AR-TOT-O geeft: 13 7 4 0 OK 
Als illustratie kan het volgende voorbeeld dienen, tet berekent de sroot- 
ste gemene deler van 2 getallen. 
: COPY OVER OVER ; 
G-G-D BEGIN COPY - ABS ROT MIN DUP O= UNTIL DROP ; 





: GGD CR .* DE G.G.D VAN * COPY . «" EN P , ‚ IS " GeG-D « 5 
9 15 GGD geeft: DE G.G.D VAN 15 EN G IS 3 Ok 
221 119 GED geeft: DE G.G,D VAN 119 EN 221 IS 17 OK 


De berekening van het kleinste gemene veelvoud gaat als volgt: 
: KGV COPY # ROT ROT G-G-D / ; 
8 12 KGV … geeft; 24 OK 


BEGIN-WHILE-REPEAT : 
Ook nu beginnen we met een v‚b.: 
DELETEO BEGIN DUP O= WHILE DROP REPEAT ; 

Verklaring: 
begin van de definitie, 

DELETEO naam van deze funetie. 

BEGIN dit is het begin van de BEGIN-WHILE-REPKAT constructie, 

DUF O= we testen of het bovenste getal op de stack gelijk ís-aar. 0. 

WHILE als de voorgaande test het resultaat "WAAR" heeft, dan wordt 
verder gegaan met de volgende operatie, Was het resultaat "ON- 
WAAR", dan springen we naar de operatie achter "REPLAT", 

DROP als het bovenste getal gelijk is aan O, verwijder het dan, 

REPEAT spring terug naar "BEGIN". 

H einde van de definitie, 

Met deze operatie kunnen we alle nullen boven op de stack verwijderen. 

12300939600 DELUTED geeft: 9 0 0 3 2 OK 

We kunnen nu een v‚b, programmaatje laten zien, Het is een spelletje. De 

speler moet een getal tussen 1 en 1023 in gedechter nemen, de computer 

zal proberen het zetal te raden, 


2 MIDDEL OVER OVER + @ / 4 
1 VRAAG1 CR .” IS HET " MIDDEL « +” ? " KEY DUP EMIT ; 
1 VRAAG2 CR .*” GROTER OF KLEINER? " KeY DUP EMIT ; 
z RADEN O 1024 
ZEGIN VRAAG! 7b 
WHILE VRAAG2 71 = 
IF MIDDEL ROT DROP SWAP 
ELSE MIDDEL SWAP DROP 
THEN 
REPEAT DROP DROP CR ." GEVONDEN " CR 4 
let spel zou als volgt kunnen verlopen: RADEN 
IS HET 5122 N 
GROTER OF KLEINER? K 
IS HET 2562 3 
GEVONDEN 
OK 
N.B. 18 is de ASCII waarde voor "N" en 71 is de ASCII waarde voor "G"II! 


FORTH opslaan, ZEEKEETE 
Jedereen, die in het bezit is van de 'Jusbox' en de 16K CROS uitbrei- 
dingskaart, kan op de volgende manier 'Atom-FOrTi' opslaan in zijn 
pseudo-ROh: geheugen. 

KRUN" FONT H 
BREAF 

COPY #240, AIFF, {6A4O 

COPY #2500,#3BFF, #6CO0 

?18=#69 

NEN 

10 COPY É6COO, ÁTPEF,f2500 

20 COPY #6A40,/6BFF, #240 

3) LINK#2500 

40 END 

Als men een volsende keer met FORTH wil werken, hoeft men niet het 
bandje te lezen! Opstarten van FORTH gast als volgt: 

218=#69 

RUN 











G.AkKermans. 


LISP 


INLEIDING: 

De programmeertaal LISP is nu ook voor de ACORN ATOX beschikbaar, Het pro- 
gramma wordt op tape geleverd en is 5.5k groot (machinecade) met bijbeno- 
rend 3K data. De machinecode staat op positie #8200 tot #9800, en data op 
#2800 tot #3400. Voor de 12K ATOM past dit net (er is niet veel werkruimte 
meer over), maar met 16K uitbreiding en IK ‘piggy packing' werkt het prima. 
ONTSTAAN VAN LISP: 

Jaren gelden hield men zicn al bezig met het (taeoretische) probleem 'BE- 
REKENBAARHEID'. Dit probleem houdt in: is er een formete definitie te vin- 
den waarmee men voor een willekeurig probleem kan aantonen of het m‚b.v, 
een rekenautomaat (bv. een ATOM) berekenbaar ofwel oplosbaar is. Er zijn 
de meest onbruikbare definities verzonnen zoals bv, van A.CHUKCH: ‘een 
probieem is effectief berekenbaar als het intuitief berekenbaar is', Mak- 
kelijker gezegd volgens mij: 'als je denkt dat het kan, dan kan het ook’, 
Ook A.M.TURING heeft zich er mee bezig gehouden, en heeft de 'TURING MA- 
CHINE' verzonnen. Dit is een theoretisch, eenvoudige machine, waaraan lek- 
ker gerekend kan worden op papier, maar praktisch nut heeft hij niet. De 
wiskundige J.MCCARTHY zat daar ook mee, en bedacht een andere theoretische 
('elegante' zoals de wiskundigen zeggen) machine: LISP. Dit staat voor 
LISt Processing. Een paar studenten van MCCARTHY zagen het praktisch nut 
van het ding in, en schreven er een interpretator woor op een IEh in 1950. 
Tot op de deg van vandaag is er nooit essentieel iets veranderd aan die 
eerste interpretator. 

DE TAAL LISP: 

LISP is een gewone programmeertaal net als alie andere talen zoals BASIC, 
met als enige verschil dat hij op het eerste gezicht totaal onleesbaar 
lijkt. Het eigenlijke verschil tussen LISP en andere talen is, dat bv. 
BASIC een '' WERATIEVE' taal is, d.w.z. er worden opdrachten (statements) 
achter elkaar uitgevoerd en LISP is een 'FUNCTIONELE' taal, d.w.z. er 
worden functies toegepast op 'argumenten', Iedéreen die wat met wiskunde 
te maken heeft (gehad), heeft in feite 'gelispt'. Bev. zo'n vervelend 
sommetje: F(X)=Xf4-KL241 en daar worden dan allerlei vragen over ge- 
steld zoals: 'Wat is F(7)?' of iets dergelijks. Als je dat dan zat uit te 
rekenen zat je in feite voor LISP-INFAKPRETATOK te spelen, want het enige 
wat LISP kan is FUNCTIES uitrekenen (of netter gezegd: evalueren). Deze 
functies bestaan uit een naam (hier 'P') met een (of meerdere) argumenten 
of formele parameters (hier ’X') gevolgd door een definitie van de func- 
tie (hier 'XM4-XP24+1'), De functie 'F!' is beschreven m.b.v. andere func- 
ties 'P!,t_! en '+', Het inconsequente van de mens is dan weer, dat we 
dan niet opschrijven '{X4' zoals wel zou moeten volgens de definitie van 
een functie (eerst de FUNCTIENAAM, dan de ARGUWENTEN), LISP is wel zo 
consequent, In LISP staat altijd de naam van de functie vooraan gevolgd 
door z'n argumenten, het geheel staat tussen haakjes, Bovenstaande func- 
tie zou er in LISP uitzien als: (+(-(f X 4)(T X 2))1) en het geheel 
heeft de naam 'F'. 

Als LISP nu het bovenstaande uit zou moeten rekenen voor een X-waarde 7, 
dan doet hij dat als volgt: 

1) tel op "+! (-{f X 4)(A XK 2)) en 1 

dit houdt in, dat er uigerekend moet worden: 

2) trek af '-' (TX 4) en (Ì X 2) 

dit houdt weer in dat er uitgerekend moet worden: 

3) verhef 't' X en 4 

4) verhef 't' X en 2 

Er kan dus pas wat worden uitgerekend binnen haakjes, ais alles wat tus- 


sen nog meer haakjes staat al is uitgerekend. 
LISP wordt LISt Processing genoemd, omdat alles wat LISP kent: ('FUNCTIE- 
NAAM! 'ARGUMENTE' . . . . "'ARGUMENTn') op te vatten is als een lijst met 
n+2 elementen. LISP interpreteert elke lijst als volgt: Het eerste ele- 
ment van de lijst is de functie-naam en alles wat daar achter komt zijn 
de argumenten van die functie. Is een willekeurig argument ook weer een 
lijst (haakjes!!), dan wordt deze weer hetzelfde bekeken (Functie plus 
argumenten). Is een bep. argument niet iets tussen hazkjes, dan wordt 
hiervan de "waarde genomen“ (in het voorbeeld X heeft de waarde 7). De 
waarde van zoiets kan bij LISP een getal zijn of weer een hele lijst met 
allemaal haakjes. 
Formeler gezegd: LISP kent: 
1) ATOMEN dit zijn of getallen of strings beginnend met een letter en 
eventueel gevolgd door letters en/of cijfers. 
2) LIJSTEN dit zijn lijsten van lijsten en/of ATOMEN. 
Tesamen vormen deze 2 de zg. ‘symbolische expressies', Een SEXPK (afkor- 
ting) is dus of een lijst of een atoom. Een voorbeeld ven een SEXPR is de 
bovenbeschreven functie, 
LISF heeft een santal standaard functies tot z'n beschikking staan, waar- 
mee nieuwe functies gedefinieerd kunnen worden, Dit is een van de sterke 
kanten van LISP. Vergelijk bv. de 'DEF FN' van sommige BASIC's en de 
YPURCTION' van FASCAL. Programma's in LISP seschreven,zijn over het alge- 
meen veel korter dan programma's in andere talen geschreven. LISP program- 
ma's zijn echter meestal langer als het gaat om numerieke toepassingen 
waarin veel gerekend moet worden met eenvoudige datastructuren zoals 
AKRAYS enz, LISP kent maar 1 datastructuur en dat ís de symbolische ex- 
pressie (of de LIJST). Het leuke is nu, dat een LISP programma zelf OOK 
die datastructuur bezit. ken programma kan dus DATA zijn voor een (even- 
tueel hetzelfde) programma, terwijl DATA een programma kan zijn. Wet LISP 
programma's kunnen op een gemakkelijke manier LISP programma's geschreven 
worden, Probeer dat eens met een taal als ALGOL, PASCAL of met de meeste 
BASIC soorten (ATOM BASIC is wat dat aangaat een beetje slinmer dan de 
anderen). Yen ander sterk punt van LISP is, dat 'KECUKSIE' geen enkel pro- 
bleem oplevert, Even wat vooruit lopen, een voorbeeldje. 
Nt (N FACULTEIT is in ATOM BASIC als volgt te berekenen: 
10 INPUR"N="N 





20 R=1 Toch een heel gedoe met een loop en wat test- 
39 IF N=O GOTO 70 werk, Met LISP gaat dat heel anders. 
40 FOR H=l TO N De definitie van Nt is: Q! = 1 
50 Rex Nt Ne{N-1)! 
60 NEXT H Dus in LISP schrijf je op: 
70 PRINP"N IR (COND ((EQ NO) 1) 
Bt END (T(TIMES N (FAU(DIFFERENCE N 1)}))) 
Het geheel heet "FAC", De Functie : "COND" is de "IF" van BASIC 
” hid 1 “TIMES" vermenigvuldigt 
« hi 1: “EQ” test op gelijkheid 
“ ” : npe is “TRULY 
” hid : YDIFSERENCE" is de "_* van BASIC 


Nog even herhalen, een LISP programma is een lijst, ken lijst is: a) ken 
eventueel leeg woord of b) Ken lijst van lijsten. Als een lijst níet een 
enkel woord is, dan staan de elementen van die lijst tussen haakjes. Bv, 
(EEN TWEE DRIE ) of ( VIER ({ VIJF ZES ))) enz, 

Het eerste element van een lijst is de FUNCTIENAAM en de eventuele andere 
elementen zijn de argumenten van de functie die bij die naam behoren, Al- 
le LISP INTERPRETATOREN beschikken over een redeläüjk groot aantal stan- 
daard functies. M.b.v. deze standaard functies kan de gebruiker zijn eigen 


functies samenstellen en zo een LISP programma schrijven. Dat Kilnkt mis- 
schien ingewikkelt of omslachtig, maarvBASIC gebeurt het precies hetzelfde, 
alleen wordt er dan niet gepraat over Functies, maar over statements. 40 
wordt bv. A=123 in BASIC een tasségnment! statement of 'toekennings op- 
âracht' genoemd, maar met hetzelfde recht kan je praten in LISF over een 
functie bv. 'GEEFWAARDE' die 2 argumenten heeft. Hier zijn dat 'A' en 
1123’, De waarde van de functie is niet van belang. 

De eerste LISP INTERPKETATOREN beschikten maar over een klein aantal stan- 
daard (of 'primitieve') functies, Dit is echter geen nadeel, daar alle 
functies die men maar kan verzinnen uit deze standaard functies samenge- 
steld kunnen worden. J.McCarthy heeft m.b.v. LISP ook bewezen, dat alle 
‘effectief berekenbare' functies nieus anders waren dan een samenstelsel 
van een klein aantal simpele functies, 


De belangrijkste standaard functies van LISP zijn: 

=-- QUOTE —-- 

Dit is een simpele functie met een (1) argument, de waarde van de functie 
IS het argument, Toets maar eer in: 

(QUOTE HALLO ) het antwoord is: 

HALLO Dit lijkt misschien eigenaardig of nutteloos, marr 
bedenk, dat LISP altijd van woorden de WAARDE probeert uit te rekenen 
('evalueren'). Als je in had getoetst: 

HALLO dan had LISP de WAARDE van HALLO geprobeerd te 
vinden, en dat was 'm waarschijnlijk niet zo best gelukt, Máisschien ver= 
duidelijkt het volgende voorbeeld iets, Als je in BASIC intoetst: 

A=X dan krijgt A miet de waarde 'X' (de letter X), maar 
de WAARDE van de letter X (of variabele), en dat is bij BASIC altijd een 
getal, Wil je in BASIC iets LETTERLIJK hebben, dan zet je het tussen 
QUOTES : 

BA="HALLO" Nu heeft A de waarde HALLO en niet de waarde van 
HALLO, wat dat dan ook zijn mag. 
== CAR & CDR --= 
De betekenis van de namen van deze Functies is niet zo gemakkelijk te 
achterhalen zoals bv, met 'PLUS' of 'REMAINDER', De namen stammen uit de 
grijze oudheid van de IBM 7400 computer, waar de eerste LISP INTAKPRLTA- 
TOREN op gemaakt zijn. Deze computers hadden 30 BITS woordlengte, waarvan 
de eerste 15 BITS het ADRES gedeelte en de laatste 15 BITS het DATA ge- 
deelte voorstelden van machinecode instructies. Vandaar de namen Contents 
of Adress part of Register en Contents of Data part of Register. Waar nu 
genoeg geschiedenis, Deze 2 functies hebben allebei een (1) argument, en 
dat moet een lijst zijn, Deze lijst mag niet leeg zijn en niet gelijk 
zijn aan een enkel woord. De waarde van de functie CAK is gelijk aan net 
eerste element van die lijst et de waarde van CDR is gzelijk aan de lijst 
uitgezonderd het eerste element. Bv, 


( CAR ( QUOTE ( DIT IS EEN LIJST })) heeft als waarde DIT. Let 
op het gebruik van QUOPE!!, Het argument van CAR is: 

( QUOTE ( DIT IS EEN LIJST }) en LISP gaat dat evalueren. 
Het resultaat is: 

( DIT IS EEN LIJST } (zie de functie QUOTE) en 
hiervan wordt het eerste element genomen dus: DIT. Hadden we ingetypt: 

{ CAR ( DIE IS BEN LIJST )) dan ziet LISP het woordje 


‘DII' weer als een functie met als argumenten IS,EEN en LIJST, en dan was 
alles in de war gelopen waarschijnlijk. Sij CDR gebeurt er dit: 

(CDR ( QUOTE ( DIT IS BEN LIJST ))) De waarde is nu: 

{ IS EEN LIJST }) De functies mogen ook door 
elkaar gebruikt worden: 

( CAR { CDR ( QUOTE ( DIT IS EEN LIJST )))} Dit heeft als waarde: IS. 


Om veel typwerk te vermijden zijn in ATOMLISP de functies CAK,CDR,CAAR, 
CADR,CDAR,CDDR opgenomen, Deze laatste 4 functies vervangen: 

( CAR ( CAR ‚……. ( CAR ( CDR ………. ( CDR ( CAR ( CDR ( CDR …. 
CAR en CDR splitsen een lijst in tweeen, de volgende functie knoopt ze 
weer aan elkaar. 
=r= CONS --= 
Dit is een functie met 2 argumenten, De waarde van CONStruct is een lijst 
gelijk aan het tweede argument met ervoor het eerste argument geplakt, Bv. 

( CONS ( QUOTE DIT ) ( QUOTE ( IS EEN LIJST })) heeft als waarde: 

( DIT IS EEN LIJST } In ATOMLISP mag je 
om nog meer typwerk te vermijden i.p.v.: ( QUOTk ZOMAAKIETS ) ook wel 
*_ ZOMAARIKTS typen, dat scheelt ook weer wat haakjes. Stel dat LIJST een 
normale niet lege lijst is en ook niet een enkel woord, dan geldt er voor 
CAR, CDR en CONS dat: 


{ CONS ( CAR LIJST ) ( CDR LIJST }) = LIJST Let op bij CONS, 
dat het antwoord bij: 

{ CONS "( DIT IS ) '( BEN LIJST )} niet 

( DIT IS EEN LIJST ) maar 

(( DIT IS ) BEN LIJST } is!! Het eerste ar- 


sument wordt TOEGEVOEGD als nieuw eerste element van de tweede lijst. Nog 
een voorbeeldje: 

(CONS(CADR LIJST) (CONS(CAR LIJST) (CDDR LIJST))) heeft als waarde: 

( IS DIT EEN LIJST } Het woord 'LIJST' 
heeft de waarde: ( DIT IS EEN LIJST }). Dit laatste voorbeeldje was al 
bijna niet meer te lezen door de haakjes. Er is dan ook een nette manier 
gevonden om LISP programma's leesbaar op te schrijven in de volgende vorm: 

( FUNCTIENAAM ARGUMENT 1 

ARGUMENT2 


ARGUMENT) 

Dus het laatste voorbeeld had er dan zo uitgezien: 
( CONS ( CADR LIJST } 
( CONS ( CAR LIJST )} 

( CDDR LIJST })) 
Dit:is al heel wat leesbaarder. In ATOMLISP is een functie opgenomen, een 
zg. ‘PRETTY PRINTER! of ‘SUPER PRINTER’ die dat ook doet, Z'n naam is 
SPRINT, Dat vergemakkelijkt alìes een beetje en vermijdt een hoop getel 
van al die haakjes. 


Deze keer de predicaten van LISP. Predicaten zijn functies net als alle 
andere functies, met als enige verschil dat de functie maar 2 waarden kan 
hebben: WAAR of ONWAAR. In LISP wordt dit voorgesteld door 'T' voor waar 
en 'NIL' voor onwaar. De meest gebruikte predicaten (of testfuncties) zijn: 


ATOM: deze functie is T als z'n argument een atoom is, anders NIL 
LISTP: deze functie is het omgekeerde van ATOM 

NULL : test of Z'n argument NIL is, zo ja dan T anders NIL 

NCT: is gelijk aan NULL 


ut test of z'n beide-atgumenten atomen zijn en gelijk zijn 
Een paar predicaten speciaal voor getallen: 
GREATERP: test of z'n eerste argument groter is als z'n tweede 


LESSP: het omgekeerde van GREATERP 
MINUSP : test of het argument negatief is of niet 
ZEROP: test of z'n argument NUL (niet te verwarren met NIL) is 


De hoofdletter P aan het eind van de predicatennamen staat voor 'predi- 
caar', Een paar voorbeeldjes: 
(GREATERY 3 2) = T (LESSP 3 2) = NIL (ATOK ta) =frT 





(NOT(LISTP 'A) = T (NULL(NUEL(NULL NIL))) = T (EQ 3 3) = 
(ZEROP O ) = T (EQ 'A 'B) = NIL (EQ 'A !A) = € 
=-- COND --= 
Een van de werkpaarden van LISP is de functie COND (‘condition' te verge- 
lijken met IF THEN ELSK). De structuur van de functie COND is even wennen: 
(COND ((TEST 1) (WAARDE 1) ) 
(TEST 2) (WAARDE2) ) Dit kan vertaald worden als volst: 
. - IF TEST1 = WAAR THEN FUNCT IEWAARDE 
. . WAARDE1 ELSE 
((TESTn) (WAARDEN) ) IF TEST2 = WAAR THEN FUNCTIEWAARDE 
WAARDE2 ELSE ‚……. etc. 
Als geen enkele test waar is, dan ís de functiewaarde NIL. ken voorbeeld: 
Stel ,we willen het max. bepalen van 2 getallen X en Y. 
(COND((LESSP X Y)Y) 
(Tr X)) 
=== DEFIN --- 
Een ander veel gebruikte functie is DEFUN (Functie definitie). De struc- 
tuur is als volgt: 
{DEFUN FUNCTIENAAM ( ARGUKENTI ..…. ARGUMENTn) FUNCTIE } 
Willen we bv, de functie MAXIMUM definieren, dan gaat dat als volgt: 
(DEPUN MAXIMUR(X Y) 


u 


El 





(COND((LESSP X Y)Y) We kunnen deze functie gewoon gebruiken zo- 
(TX) als andere functies, bv. (MAXIEUN 7 5). 
== SETQ & SEP --- 


Om een waarde aan iets toe te kennen kent LISP 2 functies: SETg en SET, 
Voor de duidelijkheid even terug naar BASIC, Als we intypen A=B, dan 
wordt de waarde van A gelijk aan de waarde van 5. typen we in gA="B" dan 
wordt de waarde van A gelijk gesteld aan B. De structuur van SET en SET; 
(SETLQ3 ARGUMEND1 ARGUMENT2) 
SETQ geeft dan de waarde van ARGUMENT? aan ARGUMENI1 en SET geeft de waar- 
de van ARGUMENT2 aan de WAARDE(!!!) van AKGUMENTI. Laten we er mee spelen: 
(SETQ A 'B) A heeft nu de waarde B 
(SET A 'C) De waarde van A (=B) heeft nu de waarde C ofwel B heeft de 
waarde C, 
(SETQ A B) A heeft nu de waarde die B ook had ofwel C. 
De letter Q aan het eind van SETQ staat voor QUOTE. In LISF's spraakge- 
bruik heet het, dat SEPQ zijn eerste argument automatisch QUOTw (werk- 
woord) en dus niet evalueert. 


Laten we eens een wat groter voorbeeld bekijken, en een beetje met de verm 
zamelingenleer gaan rommelen. Als conventie spreken we af, dat in LISP een 
verzameling een lijst is en een element van een verzameling een atoom is, 
Dus (A BC DE) is een verzameling en A en E zijn elementen uit deze ver- 
zameling. () is ook een verzameling n.l. de lege verzameling. Laten we 
eens een functie definieren die bepaalt of een atoom een element is van 
een bep. verzameling. 


(DEFUN MEMBER(X Y) de kan de functie als volgt lezen: 

(COND((NULL Y)NIL) X is een atoom en Y is een verzame- 

(LE X(CAR YT) ling. Is Y de lege verzameling, dan 
(T(MEMBER X(CDR Y))})) kan X daar geen element van zijn, 


Anders als X het eerste element is van Y dan T. Anders kijken we of X een 
element is van de rest van de verzameling Y ('t was niet het eerste ele- 
ment), 

Als we een element toe willen voegen aan een verzameling, dan moeten we 
dus eerst kijken of dat element er al ín zit, zo ja dan doen we niets, 
anders voegen we het element toe (dubbele postzegels beschouwen we niet 
als een element van de postzegel verzameling, 


(DEFUN INSET(X Y) 
(COND((HEKBER X Y)Y) 
CPCCONS XY) 
Als we een element willen verwijderen kijken we eerst of er wel iets te 


(DEFUN OUTSEE(X Y) verwijderen valt. 4o ja, 
(CIND((NELL Y)NIL) dan kijken we of het ele- 
(CE (CAR YII(CDE YI) ment dat we er uit willen 


(T(CONS(CAK Y)(OUTSET X(CDR Y)))))) halen er wel inzit. Zo ja 
dan halen we het er uit anders doen we niets. 
We kunnen nu werken met EEN verzameling en EEN element, Nu met 2 verzame- 
lingen. Willen we de vereniging van 2 verzamelingen weten, ofwel het hele 


(DEFUN UNION(X Y) handeìtje op een hoopje en 
(COND( (HULL XY) de dubbler er uit halen, 
(T(UNION(CDR X)(INSEN(CAR {)Y))))) dan kan dat zoals hier. De 


truuk is als volgt: we halen steeds een element uit X en voegen dat toe 
aan Y totdat X leeg is. 

Als we alle elementen van een verzameling Y willen hebben die. niet in een 
(DEFUN DIFP(X Y) verzameling X zitten kan 
(COND( (NULL XY) dat zoals hiernaast. 

(I(DIFF(CDR X)(OUTSET(CAR XY) )))) 
En alle elementen die OF in X OF in Y zitten krijgen we als volgt te 
(DEFUN SYIDIFF(X Y) pakken, 
(UNION(DIFF X Y) 
(DIFF Y X))) 
Alle elementen die in beide verzamelingen zitten zijn als volgt op te 
(DEFUN INTER(X Y) sporen: 
(SYMDIFF(UNION X Y) 
(SYMDIFF X Y))) 
Wat is nu het praktisch nut van al deze functies? We kunnen het begin ma- 
kan van een DATA BASE, In de praktijk zal niemand een DATA BASE in LISP 
gaan schrijven, maar als prototype voldoet LISP uitstekend, Werkt het een- 
maal in LISP dan kan het hele handeltje omgeschreven worden naar een an- 
dere snellere taal, Deze manier van software ontwikkeling bij grote pro- 
dekten in in de praktijk de meest gebruikelijke, Eerst uittesten in een 
logische theoretische taal en werkt dat eindelijk, dan omschrijven naar 
een of andere rare productietaal zoals PL1 of KPG2 of COBOL noem maar op. 


Laten we een beetje gaan rommelen met bovenbeschreven functies, Stel we 
hebben drie kleine clubs: CLUB1, CLUB2 en CLUB3. 

(SETQ CLUB1 '(JAN PIET KLAAS MARIE)) 

(SETQ CLUB2 '(KEES ANDRE MARION NELLIE)) 

(SETQ CLUB3 '(JOOP GERARD) ) 
Jaap meldt zich aan als nieuw liáâ bij CLUB3: 

(SETQ CLUB3 (INSET "JAAP CLUB3)) 
Joop was vergeten dat hij al lid was: 

(SET CLUB3 (INSET 'JOOP CLUB3)) 
Joop wil ook lid worden van CLUB2 en Kees ook van CLUB1 en CLUB3: 

(SETQ CLUB2 (INSEI 'JOOP CLUB2)) 

(SEP CLU31 (INSET 'KKES CLUBI)) 

(SETQ CLUB3 (INSET 'KEES CLUB3)) 
Nellie heeft er geen zin meer in: 

(SET CLUB2 (OUTSET "NELLIE CLUB2)) 
En ga zo maar door. Vragen als: wie zit er in CLUB1 of CLUB3 maar niet in 
CLUB2; CLUB] en CLUB2 fuseren maar de mensen die ook in CLUB3 zitten heb- 
ben daar geen zin in en gaan er uit „etc. zijn gemakkelijk te beantwoor- 
den en administratief bij te werken m.b.v. dit kleine aantal LISP functies. 


Nos een paar voorbeeldjes om de RECURSIE van LISP te laten zien. 


Hoe plak je 2 lijsten aan elkaar? (CONS LIJST! LIJST2) werkt niet, Kijk 
(SETQ LIJST '(A B C})) maar: 
(SETQ LIJST2 '(C D E)) 
(CONS LIJST1 LIJST2) = ((A B C)C DE) 
De eerste lijst wordt het eerste element van lijst twee. Zo gaat het wel: 
(DEFUN PLAKAAN(X Y) 
(COND((NULL XY) 
(T(CONS(CAR X) 
CPLAKAAN(CDR X)Y))))) 
Hoe draai je een lijst om: 
(DEFUN DRAATOM(X) 
(COND( (NULL X)X) 
(T(PLAKAAN(DRAAIOM(CDR X)) 
(CONS(CAR X)NIL))))) 
Hoe bepaal je of twee lijsten gelijk zijn: 
(DEFUN GELIJK(X Y) 
(COND((EQ X YT) 
((ATOM X)NIL) 
CCATOM Y)NIL) 
((GELIJK(CAR X)(CAR Y))(GELIJK(CDR X)(CDR Y))) 
(T_NIL))) 
Hoe zie je of een lijst achterstevoren gelijk is aan de lijst zelf: 
(DEPUN SPIEGEL(X) 
(GELIJK X)(DRAAIOM X))) 
Hoe krijg je het laatste element van een lijst te pakken: 
(DEFUN LAATSTE(X) 
(CAR(DRAAIOM X))) 
Om te weten te komen welke functies ATON LISP kent kan je intypen: (OBLIST), 
Dit is een functie die als waarde een lijst geeft met als elementen de 
namen van alle (eventueel door de gebruiker gedefinieerde) functies. 
OBLIST is een afkorting van DEFINED OBJECTS LIST. 
In het rekenwerk is LISP niet zo sterk, de volgende functies zijn stan- 





(PLUS X Y) = X+Y daará gedefinieerd: 
(DIFFERENCE X Y) = X-Y 
(FIMES X Y) XY 
(QUOTIENT X Y) X/Y 





(REMAINDER X Y) = XY 


Ide eerste LISP INTERPRETATOREN waren &lleen PLUS en DIFFERENCK gedefi- 
nieerd, de rest werd m.b.v. deze twee gedefinieerd: 
(DEFUN TIMES(X Y) 
(COND((ZEROP X)Y) 
(P(PLUS X(TIMES(DIFFERENCE X 1)Y))))) 
(DEFUN QUOPIENT(K Y) 
(COND((LESSP X Y)O) 
(P(PLUS 1(QUOPIENT(DIFFERENCh X Y)Y))))) 
(DEFUN REMAINDER(X Y) 
(DIFFERENCE X(TIMES Y(QOUTIENT X Y}))) 


Ik hoop dat deze chaotische en/of moeilijke LISP aflevering een beetje 
duidelijk heeft kunnen maken wat LISP is en wat àe programmeer discipline 
is die LISP met zich mee brengt. Vele mensen vinden LISP of afschuwelijk 
of zijn net als ík een LISP freak. Succes ermee, 
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WAT IS PILOT? 

PILOT is een programmeertaal voor educatieve doeleinden, Deze taal leent 
zich uitstekend voor het maken van vraag en antwoord spelletjes, ofwel 
vaor 'Cowputer Aided Instruction’, Het is een zeer simpele taal. ATOM- 
PILOT kent slechts 12 functies. De bijbehorende editor kent slechts 7 
functies. Het totaal neemt nog geen 1Kbyte aan geheugenruimte in, zodat 
het zelfs op een ACORN ATOM met totaal 3 Kbyte RAM-geheugen kan werken. 
Natuurlijk kan men van zo'n kleine editor en interpreter geen wonderen 


verwachten, 
DE EDITOR: 
De editor van de ATOM-PILOT kent de volgende functies: 
El Voer het programma uit. 
Zet de editor-wijzer op de start van het programma. 
\ Laat de volgende regel van het programma zien. 
& Vul de regel aan met spaties, tot aan het eerstvolgende "LINDE VAN 


DE REGEL'-karakter. De editor kent geen insert functie, Wel kan 
een oude regel, door een nieuwe regel worden overschreven, mits 
deze maar korter is dan de oude regel. (Evenlang kan ook, maar dan 
heb je deze Functie niet nodig.) De nieuwe regel moet dan aan het 
einde aangevuld worden met spaties, 

DELETE Verwijder het zojuist ingetypte karakter. 

RETURN Geef aan het "KINDE VAN Dù REGEL', 

ESC Spring uit de PILOT editor naar de ACORN ATOM monitor, Het komman- 
do laat het laatste adres van het PILOT programma zien. Dit adres 
heb je nodig als je het programma wilt opnemen op cassette. Dat 
kan via zSAVE, 

Ieder ander ingetypt karakter wordt in de programma-tekst opgenomen. 

DE PILOT-FUNCTIES: 

ATOM-PILOT kent de volgende functies: 

T:PEKST Druk af 'TEKST!, 


Â: Wacht op invoer, De input-string wordt bewaard in het antwoord- 
veld. Het adres van deze opdracht wordt bewaard voor de 'J:' op- 
dracht. 

?: Wacht op invoer, De input-string wordt bewaard in het antwoord- 


veld en in het naam-veld, 

K:TEKST Vergelijk 'TEKSY' met de inhoud van het antwoord-veld, Indien ze 
gelijk zijn, zet dan de MATCH-vlag op 'Y', anders wordt de MATCH- 
vlag 'N', Deze functie accepteert meerdere argumenten, mits deze 
gescheiden zijn door een komma. Indien een van de argumenten het 
antwoord 'Y' optevert, dan is het totaal resultaat cok 'Y*', 


JN Spring naar label 'N', J:A betekent spring naar de laatste ‘Ast 
opdracht en J:x betekent spring naar het begin van het programma. 

UN Spring naar subroutine 'N', Het adres van de volgende regel 
wordt bewaard, 

E: Return van subroutine, 

5: Stop de uitvoering van het programma en ga terug naar de PILOT 
editor, 

R:TEKST "TEKST is commentaar bij het programa. 

Hr: Maak het scherm schoon. 

B: Geef een pieptoontje. 

C:EXPR. Bereken de volgende expressie, De variabelen zijn A-Z. De opera- 
ties zijn + - en =, Het bereik van de berekeningen is -999 tot 


+999. Er wordt decimaal gerekend. C:$= zal het resultaat in het 
antwoordveìd zetten. 


We zien dat alle opdrachten bestaan uit een karakter gevolgd door een |: … 
De letters zijn de eerste letters van de Engelse namen voor de functies. 





T: TYPE H: HOE AND CLEAR E: EXIT 
M: MATCH R: RENARK C: CONPUIZ 
U: USE SUBROUTINE ACCEPT B: BLL 

S: STOP 1 JUMP 





Iedere opdracht mag worden voorafgegaan door een test , Deze test onder- 

zoekt of de MATCH-vlag 'Y' of 'N' is. Wordt aan de test voldaan, dan wordt 

de opdracht uitgevoerd, Wordt er niet aan voldaan, dan slaan we de regel 

over. De test wordt aangegeven door de letter 'N' of 'Y'. Bijvoorbeeld: 
T:JA OF NEE? 


À 





J,Y,OK,NAT 

YT:JA DUS. 

NI:NEE DUS. 

S: 
Als bij A: geantwoord wordt met 'J' (of "JA! of "Y!t of 'YES' of 'Oh' of 
'NATUURLIJK') dan wordt afgedrukt: JA DUS. Wordt er negatief geantwoord, 
dan verschijnt er : NEE DUS. Jedere opdracht of iedere test kan boven- 
dien weer voorafgegaan worden door een label, Als label kunnen de letters 
B t/m Z gekozen worden, Een label wordt aangegeven door 'z': 

EXYT :WAAR betekent: label 'X'; als laatste HATCH 'Y' opleverde, 

druk dan af 'WAAR', 

VARIABELEN : 
In de compute opdracht, wordt een variable voorgesteld door een letter. In 
een type of een match opdracht moet een variabele aangegeven worden door 
een 'Ê', Dus: 
T:8K Betekent:druk af de waarde van variabele K. 
Met '$?' wordt het naam-veld bedoeld. Zie bv. 

T:UW NAAM IS $? 
Komt in het match statement een variable voor, dan worden de niet signifi- 
cante nullen onderdrukt, Bekijk het volgende eens: 


C:X=7 De tekst 'GETAL = 7! wordt afgedrukt als we bij 
T:TYP EEN GETAL. A: het volgende antwoorden: 7 

A: 710 t/m 79 

M;$x 700 t/m 799 
YI:GETAL = ÈX Dit lijkt misschien vreemd, maar het is volle- 
S: dig in overeenstemming met de manier waarop 


het match-statement werkt op strings, Een voorbeeld: 


A: Levert 'Yt op bij alle invoer, die begint met 

M:HA THA! (bv, 1HALLO'), Het match-statement ís, mits 

YT:Y verstandig gebruikt, een zeer krachtig stuk 
gereedschap. 


In ATOM-PILOT is het niet mogelijk om direkt een numerieke waarde in te 
lezen in een variabele, Via een truck is dit probleem toch op te Lossen. 
Een programmaatje, dat zo iets doet, staat op het bandje (*PILOT.VEI'). 
WERKEN MET APOM-PILOD: 

ATOM-PILOT wordt van de cassette geladen via RUN of via LOAD en LINK 
#2A00. De programmatekst begint op adres #2EUO, Na 'ESC' wordt het eínd- 
adres van de programmatekst afgedrukt. Met xSAVE 2500 XXXX kan het pro- 
gramma opgenomen worden. Een volgende keer kan het programma geladen wor= 
den met zLOAD en gestart met: LINK#2A00 (ret) 

Het einde van de programmatekst wordt opgezoent door te zoeken naar de 
eerste regel, waarin geen':' voorkomt bij de eerste 5 karakters. Om er- 
voor te zorgen, dat de zoekprocedure niet toevallig wel een ':' tegenkomt 
na het eind van het programma, kan simpelweg als laatste regel opgenomen 
worden: "EINDE! 


trobeert u net vol„ende ma-r eens; 
ERUN" PILOT" 
T:VEzL SUCCES! 


S: 
EINDE 


ESC 


U kunt verder zelf spelenderwijs met deze taal vertrouwd raken. Heeft u 
nog vragen? Voor informatie kunt u bellen: 010-1652253, 
Gerard Akkermans. 


Wordprocessor en sorteerroutines 


Word Processor. “WORD PEOC." KEERKEKK 
F.Carver stuurde een word-processor in, Berry Lam maakte nog een aän- 
gepaste versie ervan. Beide listings kunt u op het bandje vinden. 
Editor. EEEEEE 
Een editortje; gesuffeld en verbeterd door k.Wolters. 

-88 line text processor Users Group 

This program allows the user to edit & print lines of text, up to 64 
characters per line. All the usual keys are availabie for editing: 
COPY,REPT,DELETE etc. Return is pressed when the line is as required, 
An inverse R shows the position of the return on the line being edited, 
which is as far as the printer will print out, If there ís no change to 
the line to be edited, just press return. Graphics memory ts used to 
store text, 88 lines being available in an Atom with graphics mode 4. 
Adjust the 88 in lines 10, 120, 300, 305, 500 accordingly for smalier 





Atoms: Mode 3 - 40 lines, mode 2 - 16 lines, mode 1 - b lines. 
Text can also be saved on tape and loaded at a later date, For tele- 
printer users, with the machine code for the print routine, in #2500 to 


X28FF: Add lines: 15 735=0;?36=f3A 


25 1É208=fPFI4203E; PEI 


ESAVE the print routine and text processor together with: 


ESAVE"SELTP" 2800 2CTE CES6 


Use with zEUN"SGLTP" 


If the program is used without a printer, it will hang up because of 
line 310. To finisch edíting enter 99 as the line number. This program 
is not suitable for unexpanded stoms which use #6200 onwards for pro- 


gram text. 
1OREN 88 LINE TEXT PROCESSOR 
2ODIM A(7O) 
2582=0; GOS .u 


30P." E — EDIT"!e P — PRINT"! 
” L = LOAD"? 
31IR." 5 — SAVER! F — FINISH" 


11 UmYOUR CHOICE"$A 
4OIP?A=CH"E";G. 100 
5OIF?A=CH"P";G, 300 
6OIF?A-CH"L";G,400 
TOIF2A=CH"S";G. 500 
BOIF?A=CH"F"; 2/E1=#BO;E. 


90G.g 
1OOIN.'"ENDER LINE TO BE EDIPED®'L; 
2/E1=ÁB0 


11OIPL=99;G.8 
120IFL{1 OR 1388; G. 100 
130P=#8200+(L-1)2f40 
140F.J=P DO (P+#3F) 
150IF?J=13; Per"; 0. 160 


1601F2J(32 OR PJ5I5GP." "53.180 
170P.83J 

180N.J 

190P.$1181181388 

200IN.$A 


210IPgA=""";G, 100 
220F.J=OTO LEN(A) 
2302P=A2;P=P+1 

240. JG. 100 

300IK.' SENTER LAST LIN 








(1-ö5}"L 


305IP LC OR LEG; 9.300 
310P.512 

320F.K=1T0 L 

33OP. =AB200+(k-1) #40 
340. J=P TO P+É3P 






350IF?d=13; PF. 3 JefPFPE;G. 350 
360IF?JLZ20HP IDS GP." PGO 
370P.8 2d 

350E. 5 

3ION.K; FP. 83 






4OOIN. "FILENANE "SA; ?#b1=f60 

4 1OK=ÂAO; 1X=A; X12=fB200 

420LINK#PFEO;G.g 

SOOIN, "PLINES 1="L;7#b1=f60 

S1OIFLCI Olt L>85;G. 500 

52O0L=f8200+Lxf40 

53OIN."PILENAKE ""$A 

BAOX=#A0 

550 !X=A; Al2=fB200;K16=f6200 

560K?G-L; K79L/256 

STOLINKAFFDD;G.g 

720uP. 812; ?#E 

T3OP.W=1TO31;P.SÉAINe GPe"; 
DOP. SADP;U.C. 11; Pe "editor" 

T4ODOP. BÉDF;U.C.= ì 
P.sfDOsN. GP. 



















Bubble sort. MBUBBLE SORT" EEEEEER 
Dit programma werd door d.Narks ingestuurd. Toelichting: Het grote voor- 
deel van dít programma is, dat he. niet strings zelf verschuift, maar de 
pointers naar de string verzet, Deze pointers staan in het array BBI en 
de strings staan vanaf #6200, zo compact mogelijk. ‘Sorting level' is 
het aantaì characters vanaf het begin van de string dat wordt bekenen, 
Dat levert dus een soort nauwkeurigheid van gorteren op, Als tijdens het 
invoeren van de strings blijkt dat het aantal te sorteren elementen te 
hoog is opgegeven voidoet het de string 'sort' in te voeren om de invoer 
af te breken, 


Batcher's sort, "BATCHER" EEKEEXIE 
Nadat WKarks Bubuvle sort had ingezonden, ging hij zich nogmaels bezig- 
houden met sorteren van strings in Basic. Dit had tot gevolg dat hij 
dusdanige vorderingen maakte dat Bubble-sort (in zijn ogen) hopeloos in- 
efficient is geworden. Voordeel van dit nieuwe programma is de verhoogde 
snelheid, de tijd per string wordt korter bij hogere aantallen strings. 
Dat wordt veroorzaakt doordat er relatief veel tijd in wat initialisa- 
ties, in net begin van het programma, gaat zitten, terwijl net sorteren 
zelf zeer snel is. Wat betreft de assembler subroutine, in regel 1 t/m 6 
deze heeft boven het verhogen van de snelheid ook nog als voordeel dat 
nu de gehele string ‘meetelt! bij het sorteren. Dit laatste in tegenstel 
ling tot Bubble-sort, waarbij alleen de eerste zoveel karakters meetel- 
ien. 


Sorteren. PSETI Acka” KEEE 
Sorteerprogramma, SRT/ van A.ilarchal vewerkt en toegelicht door 
Borghaerts. Het programma laden met zLOAD, het gaet dan naar #6200. Bij 
de Je keer ?18=Á82 END RUK dit om de vector goed te zetten voor 
het DIM statement, Het bestand komt bv. op #2900 (ingetypt of geladen 
van band). In het laag geheugen, #2900 tot #4000, gaan ruim 100 volle- 
dige namen en adressen met telefoonnr. Als tussenopslag wordt de video- 
ruimte gebruikt, 

Voorbe: ld van gebruik SkT9 voor achtereenvolgens SOKTEKEN en daarna VER- 
TIKAAL getabellerd uitprinten van 'n adresbestand.Per lijnnr. tot 32 
karakters, met komma's verdeeld in max. 7 (sub)strings. Voor HORIZONTAAL 
uitprinten de linefeed's (P.') verwijderen, De variabele C staat voor 
(sub)string-nr. Invoer van P,$14 achter substring-nr. geeft Vet-Drukken 
van de daaropvolgende substring, P.$15 heft dit weer op. 
10 AB,‚JANSEN,MEIDOORNWEG 4, 1010XY,PIEPERVEEN 


20 CD vd, BERT,JAVASTRAAT 1,2000PQ,BOBBELDOEP bos 
30 EF uit den,BOOGAARD, PARKLAAN12, 5555VW, GASSEGTERNIJVEEN 

28/52 (sprong naar sorteerprogram) 

RUN 


Handig kan zijn: 

regel 34 P,83 printer uit 
regel 791 P.$2;P."DRUK TOETS”; 
LINKÉFFE3 printer weer aan 


SORTEREN OP LIJNNK.? ‚TYPE 0 
OP ALFABET 1% STRING?TYPE1 
OP ALSABET 2r SHING? TYPE 2 ENZ 


U KIEST. „22 (achternaam=2)} 

Pk PRINTEN SUBSTHINGS NRS?0 (calte strings of type 12345) 

, ENE nr 

EBT EDOENK BAAREN )afstand staat op lijnnr.792 
JAVASTRAAT 1 )afstand staat op lijnnr.#32 


)afstanád staat op lijnnr.834 

an )afstand staat op lijnnr.852 

EF OGAARD ss 

ARN BOOGAA Kantlijn afstand staat op lijnnr.793 
5555EVW GASSELTERNIJVEEN en in subroutine f 

AB JANSET! 


2000P) BOBBELDORP 


Eprom-programmeren 


WERKEN MET DE ZERO PROGRAMMER: 


De Acorn Atom heeft een zgn. Vrije Socket IC24 waarin naar believen 4K 
ROM's of EPROM's gestoken kunnen worden, De ROM's komen van de fabriek, 
de EPROM's worden zelf geprogrammeerd, bijv. de 2732 (via tussenvoet) 
of de 2532, Deze laatste kan zonder meer in de socket IC24, het adres 
is #A00O-AFPF. 
Het snelste gaat u te werk wanneer u bij bestellen van de programmer bij 
ZERO opgeeft: 1)Welke EPROM u gaat gebruiken en 2)Dat de te leveren 
software dient voor de Acorn Atom. U ontvangt dan een 'startklare' ver- 
sie van de ZERO-software voorzien van de goede routine-adressen van de 
Atom. Deze software zit dan in de door u gekozen EPROM, die u na eerste 
gebruik kunt wissen en hergebruiken. 
De eerste taak: De in EPROM geleverde software moet naar Atom-RAM en 
vandaar naar cassette, Steek ZERO-EPROM in socket IC24 ('n 2732 met 
tussenvoet). Dan typt u in: LINK#A7B9, dan returntoets en wacht af, De 
software schrijft dan over naar RAM ##200 en hoger. Wanneer dit (in 20 
sec) klaar is, schrijft u RAM naar cassette met: SAVE"ZERO"8200 8400, 
De cassette is voor 2e en verder gebruik, De ZERO-EPROM kan eruit, ge- 
wist en er kan iets anders in. 
De tweede taak: Uw in EPROM te zetten program moet eerst naar uw RAù 
{2900 en dan naar de programmer, Te doen: Haal computer uit stopcontact. 
Steek uw te programmeren EPROM in de ZERO-PROGRAKMER (in goede richting) 
altijd zonder tussenvoet. Steek flat-kabel-connector van de ZERO-PRO- 
GRAMMER in 1C24 voet, ook altijd zonder tussenvoet en goede richting. 
PROGRAMMER op 5 Volt! Van cassette haalt u de 4ERO-software terug naar 
{8200 met: zLOAD"ZERO*8200. (Was weg door uitzetten van computer.) Uw 
eigen programma, dat u in EPROK wilt zetten typt u in (vanaf #2900 dus) 
of vanaf cassette met: LOAD"EIGEN", gaat dan automatisch naar #2900, Van 
dit EIGEN program zoekt u de TOP met: PRINT&TOP en krijgt XXXX d.i. 
hoogste adres eigen program, plus 1 byte. 
Nu volgt het programmeren van EIGEN EPROK. In RAW zit vanaf #6200 4LRO- 
soft en vanaf #2900 uw program. Start de ZERO-soft met; LINK#8200,. Het 
ZERO-soft begint nu een conversatie. Op de eerste pagina van die con- 
versatie controleert u of ZERO het goede EPROM-typenr. geeft. ZO NIET: 
dan op ZERO-PROGRANIMER het schakelmoduul goedzetten. Zie tek, handlei- 
ding. Controleer ook of als byte-lengte (ZERO-soft) nu EF wordt gegeven. 
ZO NIET: dan zit er een fout in de ZERO-soft (niet waarschijnlijk) of 
is er jets fout gegaan bij het overschrijven van de ZERO-soft naar uw 
{8200, Zie ‘eerste taak!', U kunt taak 1 overdoen of ‘anders' doen n‚i, 
met een verderop nog te geven hulp-programma'tje, 
Nemen we aan dat de controles goed zijn, dan vult u de conversatie in 
met: BASE ADRESS . . ‚ AOOO en bij CHOOSE NON « ‚ « 4 FIRST PROM BYTk 
… « « O en LAST PROM BYTE . « . FFF bij BYTE COUNT „ . . gewoon return. 
Doet hij zelf, 
Blijkt uw EPROM inderdaad leeg, dan kiest u CHOOSE NOW . , . 2 en vult 
in:(1) FIRST MEK BYTE „ . « 2900 

(2) LAST ME BYTE „ „ . XXXX-1 

(3) BYTE COUNT , . . (returntoets) 

(4) FIRST PROM BYTE , . . O (miet AO!!) 

(5) LAST PROM BYTE . . . (returntoets) 
Volg verder de conversatie. Het programmeren duurt 100sec. Wilt u (later) 
uw EPROM 'bijvullen' dan wordt (4) natuurlijk net eerste vrije byte- 
adres. 


Hulp-programma'tje voor overschrijven en controleren (resp. regel 10 en 
20). N.B, Het Hulp-program is buiten de haakjes algemeen geldig. Het 
"loopt! uiteraard met RUN. Het foute BYTE kunt u peeken en pooken. Lukt 
dit niet, dan is de RAM stuk. 

5 INPUT "STARTADKES 4" A (of A={A00O) ) 

6 INPUT "EINDADKES Z" k (of k=fATFF) ) ZEROsoft is 2K lang 
7 INPUT “STARTADRES PROGK" D (of D=#8200) 

10 E=E-A; POR 1=0 TO E; D?I=A?I 

20 IF D?IC>A?I GOSUBa 

30 NEXT; END 

4OaP,"FOUT IN BYTE"I 

50 RETURN 


AANPASSING van de ZERO EPROM programmer, zodanig dat er 2764 EPROM's 
mee geprogrammeerd kunnen worden, 
Benodigheden: 1 28 pins socket 
schakelaar dubbel om 
schakelaar enkel om 
zener 4V7 400mw 
zener 5V6 400mW 

1 spannings regelaar 78115 
Indien uw programmer reeds met een 78L15 is uitgerust, dan zijn de laat- 
ste 3 componenten niet nodig. 
U vondt naast het IC NE555 eerst 4 weerstanden en dan 3 diodes. De eerste 
diode vervangt u door een zener van 4V7 (streepje richting programmeer- 
socket) en de tweede diode vervangt u door een zener van 5V6 (richting 
idem), Vervolgens vervangt u het component direct naast de schakelaar 
(78L24) door een T8L15. Het soldeer-eilandje aan de onderkant van de 
prinf, onder de eerste zener van 4V7 kan nu doorverbonden worden voor 
2732A en 2764 EPRON's, of open gelaten worden voor 2716, 2732 en 2532 
EPROM' 5. 
Verwijder nu het jumper IC en vervang dit door onderstaande schakeling, 
incl, nieuwe 28 pin programmeeervoet. De A12 schakelaar is om de te pro- 
grammeren helft in te stellen. Schakelaar S2 moet in de stand "read" 
staan, Programmeren: bij de melding "switch Vpp to 25 volt”, eerst S2 
in de stand "prog", daarna de altijd gebruikte schakelaar in de stand 
"25 volt” zetten en dan pas de spatiebalk indrukken. Bij terug schake- 
len: eerst 25 volt afschakelen, daarna S2 omzetten en pas daarna spatie 
geven. Het is normaaì dat de programmer in de 2732 mode staat. 


ATOM EPROM PROGRAMMER PRACTICAL COMPUTING 


The Acorn Atom has a vacant expansion socket inside for a utility KOM 
which will accommodate up to a 4K by eight-bit device, writes John 
Flower of Cowplain, Hampshire. The EPROM which can be fitted in the 2532 
which is made by Texas Instruments and a number of Japanese suppliers. 
This device is a 32K chip organised as 4,000 words of eight bits. The 
chip is readily available for about £6, 

You can program your favourite game or a useful machine-code routine on 
to this device so that it can become a permanent part of your computer's 
operating system. You could even write your own toolkit program. The 
2532 EPROM is remarkably easy to program with the Atom since most of the 
necessary circuitry for an EPROM programmer is already inside the Atom's 
VIA chip. If you decide to have a go at building this design then you 
will have to buy and fit the optional 6522 versatile interface adaptor 
chip to your machine, 

Por a programmer interface you only need to provide an address latch ex- 
ternally to address each location in turn while the data is presented 
and the programming operation takes place. The circuitry consists of 2 
LS374 eight-bit latches to hold the address word plus a zero-insertion- 
force socket to carry the EPROM without risk of bending the pins, 

Pin 21 of the 2532 EPROM is connected to +5 volts when reading data. 
Data is read by pulsing pin 20 low while looking at the data pins. The 
device works in reverse if pin 21, which is normally held to 5 volts, is 
taken to 25 volts, In this case data present at the data pins is pro- 
grammed into the eight locations whose address is present at the address 
pins. This happens if pin 20 is pulsed low for exactly 5Oms. 

The program performs the necessary operations to copy‚ program and veri- 
fy EPROMs. Programs to be copied from an EPROM or to be programmed into 
one are stored in the graphics memory from location #8400 onwards. The 
program is menu driven and prompts to see what operations you wish to 
perform. 

The VIA chip writes the relevant address on to ports A and B and clocks 
the address latch to store the 12-=bit address, Then the eight-bit data 
is either presented to or read from port B. 

Construction of the circuit should present little difficulty, Only two 
integrated circuits are involved, plus four resistors, two diodes, an 
npn transistor and one capacitor, You will need to fit an Acorn bus con- 
nector to your computer and buy the appropriate 64-way Eurocard DIN con- 
nector mating socket, 

The circuit diagram shows the bus connections that are used, viewed from 
the rear of the programmer card. The 64-way right-angle plug is fitted 
to the Atom, and the socket is fitted to a piece of Veroboard upon which 
the programmer is to be constructed, 

The light-emitting diode serves to show that Read or Write operations 
are taking place, The other diode - IN 914, or similar - ensures that 
+5V is connected to pin 21 of the EPROM when normal reading of the EPROM 
ae occurs. When +25V is applied to the 
device for programming purposes, the diode becomes reverse-biased so 
that the SV power supply ás not affected, It is very important to con- 
nect this diode the right way round to avoid serious damage to the Atom's 
+5V supply. The cathode is usually marked by a thick painted ring on the 
diode body and should be connected to pin 21 and the programming switch. 
After constructing the circuit you do not need the programmer card to 
prove that the program is working: with the card unplugged the program 
will copy #PF into each screen RAM location. You can cheek this by first 


far about 20 min, about 3 em. from the tube, 


clearìng the mode 4 screen, then adding line 95 ?2#BOOO= #FO 

Running the EPROM copy routine will let you see the memory being filled, 
which takes about 4 min. The verify routine reads the EPROM and compares 
1t with the contents of the screen RAM. Any errors will be listed and a 
simple check-sum is computed by adding the decimal contents of each loca- 
tion together. See íf the answer for the all-#FF case comes to 4,096x255. 
Heving satisfied yourself that the program works plug in the programmer 
card and set the Read/Program switch to Read, connection to +25V open- 
circuit. The diode has been connected correctly if you can measure 5V on 
pin 21 of the ZIF socket. 

The LEO should flash during the Copy, Verify and Program modes, If it 
does not, it may be connected around the wrong way, so try reversing it, 
Next insert line 95 to watch the memory being loaded with the copy rou- 
tine. If you short-circuit pin 20 to each data pin in turn on the ZIF- 
socket, you can see from the bit pattern whether each bit is being read. 
Do not try to fit an EPROM or connect 25V until you are satisfied that 
everything is in order, 

Try reading an EPROM or ROM. You could unplug and read the floatingpoint 
RON if you have a fully expanded Atoms. When you are ready to program a 
2532 EPROM you can connect a 25V supply to the programmer card: four 6V 
transistor radio batteries connected in series are a simple way of ob- 
taining ít, 

If you follow the program instructions to the letter, there should be no 
problem in programming your own EPROMa, and when you can program EPROMs, 
you will soon want to erase them. Unfortunately there is no simple wethod 
of doing so: intense ultraviolet radiation at a wavelength of 275,8nm, 

is required, 

If you make your own eraser it is essential to mount the tube in a light- 
thight box to protect the eyes, EPROXs to be erased should be exposed 





EPROM programmer card circuit, +5V, 


vent smeë 
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Asteroîden, vliegtuigen en maanlanders. "ELOPTER" EEEN 
Het in beeld brengen van deze en veel andere figuren is steeds opnieuw 
een probleem. We zouden de Atom Basic commando's PLOT, DRA en WOVE kun- 
nen gebruiken, Dit kost niet alleen veel schrijfwerk en geheugenruimte, 
bovendien is de plotsnelheid gering. Vloeiende bewegingen zijn op deze 
manier onmogelijk. Alleen assembler routines komen in aamrerking. Omdat 
niet iedereen gewend is om routines te schrijven, heb ik (W,Janssen) be- 
sloten een algemeen bruikbare plotroutine te schrijven, 
Het enige wat men nu nog hoeft te doen, is het definieren van aet ge- 
wenste figuur en de subroutine aanroepen. Uiteraard heeft de routine nog 
een aantal gegevens nodig, zoals de plaats, 'kleur' van de figuur etc. 
Dezelfde routine kan binnen het hoofdprogramma gebruikt worden om ver- 
schillende figuren te plotten, en hoeft dus niet voor iedere figuur op=- 
nieuw te worden geassembleerd. 
Voor het definieren van de figuur gaat men als volgt te werk, Teken de 
figuur op ruitjes of millimeterpapier, zoals in fig.1, voor een hartje, 
Ernaast is aangegeven hoe de figuur wordt afgebeeld op een matrix van 
‘enen! en 'nullen', In dit voorbeeld bestaat de fig. uit 7 rijen van alk 
Q beeldelementen ofwel 'pixels'. Alleen de pixels waarvoor het matrix- 
element '1' is, worden door de plotroutine getekend. De vest blijft op 
het scherm onveranderd. 
Zet nu de rijen enen en nullen achter elkaar te beginnen met de bovenste 
rij en verdeel de rij in groepjes van & bit, In ons voorbeela wordt dit: 
01160011 01001019 01100910 OO1UIGIG JOII0010 OO10UDJU 10190000 
0010000X (net laatste bit 'X' hoort niet meer tot de rij) 
Vertaal ieder groepje in een hexadecimaal getal en sla deze getallen op 
in opeenvolgende geheugenplaatsen, bv, door bruik te maken van 'poke' 
instructies, In ons voorbeeld zou dit als volgt kunnen: 
DIM MT) 
M2O=#63; M?l=fdA; MP2=A62; MPZ=f2G; WId=f2O; MID=É2O; MI6=fAO; K2T=f2O 
et woordvectoren i.p.v. bytevectoren kan het nog iets kompakter: 
DIM M(7) 
!M=#28624A63; M!4=f20A02022 (enk aan ie omgekeerde volgorde) 
Hiermee ìs de figuur gedefinieerd en kan hij vervolgens op elke gewenste 
plaats en in de gewenste 'kleur' getekend worden. Aan de afmetingen van 
de figuur zijn geen grenzen gesteld. 
Om de plaats van de figuur op het scherm aan te geven, gaan we uit van 
een rechthoekig coordinatenstelsel, waarvan de oorsprong ( in tegenstel 
ling tot Atom Basic!) gekozen wordt in de linkerbovenhoek. Dit laatste 
is om programmeertechnische redenen zo gekozen, De plaats van de figuur 
wordt nu bepaald door de coordinaten van de linkerbovenhoek van de fig. 
(zie fig.2) 
Voordat de plotsubroutine wordt aangeroepen moeten de volgende geheugen 
locaties gezet zijn: 
=#BOOO moet één van de waarden #50, #90 of #DO bevatten, om aan te geven 
dat er geplot moet worden in de graphic moue Ca, 3a of 4a respectieve- 
lijk. Zie ‘Atomic Theory & Practice! 11-u-2,) Het oplossend vermogen is 
ín de X-richting 128 en in de Y-richting resp. 64, 9b en 192. 
-#80,81 moeten het adres van de figuurgegevens bevatten (#uO=minst sig- 
nifiecante byte, #Sl=meest significante byte). 
-#82 en #63 dienen de breedte resp. de hoogte van de figuur te bevatten. 
Voor de fig. in fig.1 is dit 9 resp. 7. 
-{84 en #55 worden gebruikt om de X resp. Y coordinaat van de figuur aan 
te zeven. 
„#56 dient één van de volgende besturingscodes te bevatten: 

{00 = inverteer figuur #60 = plot fig, in wit 

#40 = plot fig. in zwart CU = plot fic. ir vrije 











{in srijs bv. om Fig. uit te wissen) 

de inhoud van bovengenoemde locaties wordt niet gewijzigd door de plot- 
routine, hetgeen erg handig is bij het nerhaald tekenen en uitwissen 
van dezelfde figuur (bv. voor bewegende figuren). 

Tenslotte wordt nog vermeld dat de genheugenlocaties #67 t/m #91 worden 
gebruikt als tijdelijke opslagplarts van gegevens en dat de routine 
vanuit Basic wordt aangeroepen d.m.v. LINK SSO. 


G11000110 
1061013001 
10901006 1 
016000 10 
GO1000 100 
GUU1O 1000 
OUDG 1OLOU 























Pig.2 


Graf -rite, “GRAF-KITE" KEEE 
Dit is een utility-programma, dat het mogelijk maakt, om met een uitge- 
breide ator tekst op het scherm zichtbaar te maken in graphics moue 4. 
Dit kan zowel vij input als door het key-board. 

ket enise aanpassing is h.t mogelijk dit programma ook te gebruiken in 
de andere graphics modes. Hierbij moet u wel rekening houden met het 
feit dat ern gedeelte van de karakterset verloren gaat, door een vermin- 
dering van net beschikbare geheugen. In deze vorm is het formaat 21 
regels van 32 karakters, 

Alle karakters, welke via het key-board mogelijk zijn, kan men zichtbaar 
maken, inclusief kleine letters. br zijn ook enkele karakters via het 
key-board ter beschikking, welke normaal niet via het key-board mogelijk 
haft CT = 



















zijn: e- 
hift Je 
shift © Nn 
shift & = — 
saift N= 4 
Aanvullingen: 
500 F‚$12;DIKW64 Clear screen and DIK-string 
505 INe#ENEES SERT 46u Enter string for generation 
E1G CHEAE4 
515 Frit=d Obe ne 1 Set up loop 
520 308. Set op word vector of Hth char, in string 
525 L Reset variables and print it 


listing tienerating a string of char, on the screen under Graf-kite 
Before running change line 5 to 5 5,5C0 











100 Ca; Da ;Fz0;G=1 435 IF F»99 GOS.(B?2);GOS.a;L=K+i; 
405 JE Jel R2C3G,416 k=b 
A10 P=i) 440 IP Get C=C41iL=I2 kel; G=23 004 10 
415 SPR F‚2 445 DeDe1;L=64;k=l; 0.405 

Fe GOS. CH"OP; BOS as ‚ Ran R . 
120 5 ike 205 TON; ii Listing 2:A score tndicating routine 


that can be added to games etc. 


A25 Gos «(B20);GO0S.aslekt1skeb ‚2e nee 
130 IF ne ROS. (R21)s GOS as gefore running cnange line 5 to 
Tet steel 5 CLLAk 4;G.40C 


COLLECT 





TOLVAY 2/52 


Universele inverteer-routine. KEEEKERS 
Deze universele routine inverteert het aktuele beeldscherm (graphics of 





:LL1 \TEKST :LL2 of tekstmode), kr wordt een soort 
LDA#8000,Y LDXe#83 binair boompje gebruikt om het 
EOR@#80 ROLA;BCC LL3 eindadres vast te stellen. De 
STA#8000,Y LDXe#7 vertaalde code ie 70 bytes lang, 
LDA#8100,Y KOLA;BCC LL3 gebruikt alleen de geheugens #90 
EOR@#30 LDX®#85 en #91 (te vervangen door elk 
STAÁB100,Y :LL3 SPX#91 \GRAFHICS ander opvolgend 'ZF-paar') 
INY;BNE LLIGKTS :LL4 en wordt aangeroepen met 
:LLO LDYPO;STY #90 LDA(#90),Y LINK LLO. 

LDA#BO00;BEQ LL1 EORO#FE (Eet statement INVERT, dat in de 
ROLA; BCC LL2 STA(#90),Y handeì ís, doet hetzelfde.) 
LDXC#8B INY;BNE LL4 

ROLA;BCC LL3 DEX; CPX4 {50 

LDXC#97; BNE LL3 BPL LL3;RTS 


Graphics-inverteer-programna 1. 

Ret graphics geheugen (de volle 6X) wordt door deze routine X keer ge- 
inverteerd. Als X=0 gebeurt dat 256 keer en áuurt 2o sec. De vertaalde 
code is 31 bytes. 

Graphics-inverteer-programma 2. 

Qok hier owrdt de volle 6K graphics geinverteerd, Voor X=0 duurt net nu 
18 sec, De vertaalde code is 204 bytes. 

Scherm-ánverteer-programma. 

Dit programma inverteert het normale scherm (mode 0), Ook hier gebeurt 
dat X keer. 





1ODIM LI1,P-1 1ODIN LL2 1ODIM LLI,F-1 
20C;LLO LDY&0 20F.I=1 TO 2;DIMP-1 20E:1L0 LDY2G 
30 LDA@#BO;STA#IT 30T:LLO LDYÉOs :LL1;) 30:LL1 
40 LDAP #00; STAA9O 40F.G=#6000 TO Á97Fr 40 LDA#BOOO ,Y; 
50 :LL1 5.#100 EORS#BO 
60 LDA(#90),Y SOCLDA G,Y; ORFF; STAG, YJ 50 Slafn000,Y 
70 EORSÉPF GONEXT G 60 LLA#G10G,Y; 
80 STA(#90),Y TOCINY;ENE LIZ:DEXGENW LLès LÔN *#00 
90 INY;BNE LL! RLSs:LL2 JMP LL1;7 70 STA#G1DU,Y 
100 INC#91;LDA#91 BONEXT 1 50 INYsBNr LLT 
110 CMPG#IE;BNE LLI GOEND 90 
120 DEX;BNE LLO;RTS;} 
130 END 1O0EN HD 
Gaie-p 1. G-i-p 2. Sips 

Bram Poot. 
Noise vrij tekenen. KEEEXIE 


Door A.Reijnen werd een programma'tje uit Byte ingezonden. toelichting: 
Na CLEAR X in het programma intoetsen: 





2/BO=IfIFE; 2ÉB1=2AZPE Het tekenen van punten en trekken 
PAZFE=TOP&AFF; 2Á3FP=TOP/256 van lijnen gebeurt nu zonder 
A=TOP interferentie op het scherm, 
TA={22C50A9 maar gaat nu trager, Vertraging 
A 14=f6CFBDOBÒ per punt 1/60 sec. 

Alb=f90 

3-D plot, P3-D PLOT” EKEEE 


Plotje ingezonden door R.Heuvel. (Uit Personal Computing.) 


3-Dimensioneel tekenen. “3D PLOT/PRINTN KEXEEN 
Het 3-Dimensioneel tekenen van wiskundige vergelijkingen en de projectie 
hiervan op het scherm incl. het uitwissen van de zgn. ‘Hidden Lines! , 
volledig met een (j/n) printroutine. Door Jos orsmeier. 

1 VOOK DIT VOORBEEL INTYPAN: 
20 Y=bIN: -1 

30 V-MAX: 1 























4ò P-MAX: 1 
50 YTL: 10 
60 A): 45 





TG PGeX,EY) 
80 VISABLE AAkS(Y/N): Y 
95 PRINTOUI  (Y/W): Y 
110 WACHT DAE COP TEKENING OP 'T 
115 SCRL LAAK IS (FIktem) eN 
120 DAK DAK EEK VAN jb TOETSEN 








(HL) SIN (SK (MF AALO) P(X BY) =P EY -HXELX 
iet programma is geschreven naar de 5255-C3. 


spelletjes en muziek 


Tarantella Napoletana, PRUSIC' EEEN 
Frans van Hoesel laat uw Acorn 'Tarantella Napoletana’ spelen, U heeft 
er wel de Toolkit voor nodig. 


Muziek uit het noorden. PMUZIEKDOOS" "WILHELMUS" KEKKIER 
Twee muziek programma's van Wim Schreuder, voor iedereen met een Toolkit. 
Het zijn ‘Muziekdoos’ en ‘Wilhelmus van Nassouwe! , 





Toonhoogte: Loonlengte 
oktaaf] oktaaf? oktaaf3 oktaafd Bec. getal 
D0 C 205 102 50 5 250 
c 194 96 4 2 100 
RE D 183 91 45 t Du 
D 173 86 42 ë 8 
MI E 163 81 39 1/4 12 
PAF 154 76 31 1/6 6 
F 145 7e 35 1/16 3 
137 55 3 
ii 5 125 54 Ei 5 sec: 
Ha A 246 121 60 EN DiEP X,Y waarbij: 
Bb 241 Tra 57 Toonhoogte =1 
n Loonlengte =100 
TI B 217 108 54 26 
Do € 24 
Bingo. PEINGOP EEKE 
Programma van Wim van Ham, 
Lotto-hulpje. “LOrror KEEEKKE 


Dit programma verzint getallen, die je kan invullen op je lotto-formu- 
lier. Auteur: GeAkkermans. 


Geintje. POINT en!  KEKKKEKE 
Van Gert de Jager is dit programma'tje. Kunt u ontdekken waarom het rpro- 
gramna'tje doet, wat het doet? 


Grapje. EEKE 
Grapje van Jos Horsmeier. Wilt u iets laten knipperen? Tyn dan ir: 

10 2#E1=0 

20 FP, "KNIPPEREN" 

30 P.813;LINK#FE22;G0T0 20 

Het knippert wet vlug, maar daar kunt u met wat 'Wall's wel wat aen Even. 





Joedel, ”JOLD: KEKEKEEF 
Snelle joedel, Een aanvulling op regel 65 kan zajn DEC#BO. 
Nimspel. PNIKSPEL" KEEKEEK 


Nimspel is een denkspelletje dat je tezen de computer speelt. de Hebt 
er de TOSLBOX voor nodig en Gerard Akkermans neeft het zemaakt, 


Mathematische bewerkingen 


Afronden, VAPKONDEN" EEEEER 
F, van Hoesel stuurde een programmaatje in om goed af te ronden. ken 
probleem bij veel mengen. Toelichting: net aantal spaties in het PRINT 
statement van regel 20 is gelijk aan J-2, 


Afronden 2, EEKEREN 
Ook J.dobse stuurde een versie in van zijn afrond-programma. 
Poelichting on FIX routines: 
haamgevinz: De naam ‘PIX! is afkomstig uit de programmeertaal ALGOL, 
waarin dit statement een soortelijke functie heeft. 
Toepassing: FIX2 is ontwikkeld voor programma's waarin geld een rol 
speelt, FIX F is universeel toepasbaar en geeft een nette en overzichte- 
lijke uitvoer van FP-getalìen. 
Gebrui Bet printen van %A op 4 decimalen nauwkeurig gaat als volgt: 
A; SCSUB f 
Opmerkingen:- de waarde van ” heeft een iets afwijkende uitwerking,:> be- 
paalt waar de eenheden geprint worden. 
„ met komma wordt steeds de ‘decimal point' bedoeld, Bij 
gelabedragen kan deze an FIX2 e.t. vervangen worden door een echte komma 
- 5 en hoger wordt nr=ar boven afgerond. 
Voorbeeld: FIX F 





















10 Rejsteb;P.! RUN 
20 5, GOS, f;P.' 0,000 
D EAe-1/35 GSF; P.! =0.333 
40 5X=10000/6; GOS. f;P.* 1666,667 
50 Axe 9.9994;008, … 9.999 
50 ko 993, 9935; 305. fi; Pe! 1000,000 
4 1/1040 3605. f;E, =0,001 
=0.000 
ZPT SOS. EPs. 3.142 






190 El 
WIX2: Begrensing op © plaatsen achter de 'KOENA' 

VIOOLREN FIX 2 

1003 “he mrws Zeijl TOCRAESBX+U 51) -ALSRKETOO; IPLIGIP „HXASENÉX" „VUR. 
1005 FIPGXCOF IFÉAD-100 P.EIGU.C Dedi. tj 0 

1006 PZC10;P.O 

1097 











1COOFRER FIK 2l. 

1961 FIP ABSYACO.OO5; PIFAKLDUs Pe 57,0" OOP ske 

1992 FIF AES@231/100; P.&T p= 2; FP. 2NH1/100, "OP sG2P- sk. 
OIOfREN FIX ZF 

1CG1 PIF ABSEXN OOB; PIPSKOOHFF AXsk. 

1002 PIF ABSEO231/100;FP.BX;h, 








Sebruikt: label f, invoer-variabele #X en # (na aanroep ongewijzigd), 
huip-variabelen %$ en Z {na aanroep ongedefinieerd) 
Benerkinsen: AAS(%K) max. = 21474536 ABS(%X) min. = 0,005 


PIX P: Begrenzing op P plaatsen achter de 'kOhirá' 

1OOGEREN PIX F 

1001 Pe 1OOEF+ SG F=A( IOT F4) 

1004 Z=B(PRABSSX40, 51) -AUSAARE; IFZ=P GP. BKA SOHEKT 5de 056. 1007 
1005 PIPLXOGFIPGXD-1;20 P.$9;U, e Ded-2;F 
1006 P.A, 








1007 #=0;D0 IF Z4F/10;P,0 
1008 F=F/10;U.F=1;IFZ}O; Ps 4 
1009 F=5Q/100 ;&=#8H100; 


1OOOËREN FIX FM 
1002 FIF ABSAXCO.5/FGPIPBK<>OG PBT ,OP 7 Ze0; G. 1007 
1003 PIF ABSEXP2M I/F; FST; Bef 1OOGRF.2TZI/F GPe rUPGG. 10,9 


1OOOFRENM FIX FF 
1002 FIF ABSAXCO.5/F;FIEAXSO; FP. AX; G. 1009 
1003 PIF ABSÁX»2W31/P; FP. AK; G. 1009 


Gebruikt: label f‚ invoer-variabelen BX, F en 9 (me aanroep pagewijzisd) 

hulp-variabelen %® en 4 (na aanroep ongedefinieerd) 
Beperkingen: F max. = & met ABS(%X) max. 21.4745364 

FP min. = 1 met ABS(%X) max. 2147465364 

Versies: . geen max./min, beveiliging (snel en kort} 

M begrenzing op max./min. waarde (met waarschuwing) 

F_ automatische FP-notatie bij overschrijding max. /min. 

Bij gebruik van een beveiligde versie de regels taevoegen aan 
de ‘kale! versie. 











Talstelsels. MALSTEL" EEFKEERK 
Programma van Kuckartz, schrijft een binair, octaal, decimaal of nexka- 
decimaal getal in de andere talstelsels om, 


Priemgetallen. VERIEE GETAlLhN"zerrrEr 
Dit programma van G.Akkermans, berekent alle priemgetallen groter dan 
de opgegeven waarde. 


Rekenen. “LOOFD KEKENEN" EEEZER 
J.Post stuurde een hoofdreken programma ìn, het is een programma van de 
PET-gebruikersclud, door hem omgeschreven voor de Acorn Atom, 


Hypotheek berekenen. "ALPOTHEEK" KEEEEK 
Programma van H.Blijleven, dat u helpt uw hypotheek te berekenen. 





Sinusteller. EEEEX 
2OFDIMATT (120) Programma van h‚Heuvei, dat 
3OFORI=OTO120; AIT (I) =O; NEXT bedoeld is als proef om de 
AOCLEAR2 ; PRINT$21 opbouw van golfvormen uit 
43F.I=#8000 TO#B6OG 5,4; HI=AFFEPEPEF;N. sinusvormige spanningen te 
45%C=15 demonstreren. %C 25 de Ani- 
GOFORH=1TO28 tiele amplitude van het sig, 
5OHAAC/(H/2) In regel 60 worat de orde 
1OOPORX=OTO120 ;T= JX; BP=RAD(T) van de harmonisch bepaald. 
120MOVEX,O;PLOTS,X,95;MOVEX,45 In regel 50 verder de span- 
140%U=HAESINCAT) ning van de narmonische 
160ELT (X) BIT(K) +AU 5 LB (BEICK) ) svanning. De waarden in cit 
18OPLOT2,O,Y programma zijn voor eert 
200NEXT ZAAGTANDVOrE. 

Z2ONEXT 

24OEND 

Fourier analyse. "POUH IER" KEENEERE 


A.Harteveld reageerde op het hierboven staande programma. 
Dit programma toont aan dat wiltexeurige golfvormen opgebouwd kunnen 
worden gedacht uit sinussen t een frequentie die een geneel meervoud 





Zijn var de grondiregquentie van de betreffende zolfvorm, Deze sinusvor- 
mige componenten worden harmoniscnen genoemd. wanneer we bv. spreken 
over de derde harmonische van een golfvorm dan bedoelen we de component 
die een frequentie heeft van 3x de grondfrenuentie. Willen we van een 
bep, harmonische de grootte en de fase uitrekenen dan dienen we dit te 
doen door zgn. FOURIER ANALYSE. 

De fourier analyse, of in een andere vorm fourier-transformatie genoemd, 
berekent in principe voor een willekeurige harmonische de grootte (modu- 
tus) en de fase, Door herhaald uitvoeren voor verschillende harmonischen 
ontstaat dan een frequentiespectrum van het periodieke signaal met de 
gekozen golfvorm. Dit spectrum is een VOLLEDIGH BESCHRIJVING van de ori- 
zinele golfvorm (alleen nu een functie van de frequentie in plaats van 
een tijd-functie), Door optellen van alle harmonischen in de juiste 
grootte (modulus) en juiste fase ontstaat weer het originele periodieke 
signaal. 

De fourier-transformatie is een wiskundige truc die eunvoudig te begrij- 
pen is, ken transformatie wordt uitgevoerd door een periode van de 
grondgolf te vermenigvuldigen met een sinus van de te bereken narmoni- 
sche frequentie, Vervolgens moeten we dan deze nieuwe functie over de 
gehele periode van de blokgolf integreren. heer begrijpelijk gezegt: 

we gaan het NETTO oppervlak van de ontstane functie bepalen. Het NATTO 
oppervlak is hierbij dan het oppervlak boven de nul-as minus het opper- 
vlak onder de nul-as. Wanneer we een sinusvormige golfvorm vermenigvul- 
digen met een hogere harmonische sinus ontstaat bv, een functie zoals 
weergegeven in fig.1. Het NETTO opp. van dit figuur is nul! In dit geval 
betekent dat, dat de 2e harmonische van een sinus nul is. Zouden we dit 
ook doen voor alle hogere harmonischen dan zien we dat ook nier weer nul 
uitkomt, 

Wanneer we echter een sinusvormige golfvorm vermenigvuldigen met een si- 
nus van dezelfde frequentie, dan ontstaat een functie zoals is aangege- 
ven in fig.2, In beide gevallen is nog geen faseverschuiving geintrodu- 
ceerd, doch dit doet aan het principe niets af, Het NeTTO opp. van fig.2 
is zoals te zien ongelijk aan nul. De grootte van dit opp, is afhanke- 
lijk van de grootte en fase van de betreffende sinuscomponent (we kunnen 
de sinus waarvan we zijn uitgegaan ook als een component van een gecom- 
pliceerdere golfvorm zien). Het zal duidelijk zijn dat m.b.v. deze me- 
thode steeds alleen de te berekenen harmonische wordt bepaald, aangezien 
andere harmonischen geen NETTO bijdrage aan het opp. leveren, 

We kunnen dus door steeds met een andere harmonische sinus te vermenig- 
vuldigzen en te integreren het frequentie spectrum van een periodiek sig- 
aal berekenen. Een harmonische wordt echter niet alleen bepaalt door 
zijn modulus dach ook door zijn fase, De fase van een harmonische en de 
aaarmee samenhangende invloed hiervan op het "netto-opp.", kunnen we 
vangen door de bovenstaande methode 2 maal uit te voeren, De le maal 
vermenigvuldigen we met een sinus en integreren en de 2e maal vermenig- 
vuldigen we (de originele golfvorm) met een cosinus om vervolgens weer 
te integreren, De modulus van de harmonische bepalen we dan door Pytha- 
goras toe te passen op de gevonden componenten. De fase kan bv. dan wor- 
den berekend uit: arccos(c/m) waarin c en m resp, de cosinus-component 
en de modulus voorstellen, 








Het programma doet praktisch letterlijk hetgeen hierboven beschreven is. 
jet vermenigvuldigen met resp. sinussen en casinussen geschiedt m‚b‚v. 
een sinustabel, Dit om te voorkomen dat sinuswaerden die sterds weer als 
vermenigvuldigingsfactoren worden gebruikt meerdere keren worden bere- 
ken, hetgeen veel tijd kost, 

In lijnen 510,515,530 en 535 worden o.a, deze sinuswaarden uigelezen. 


Het programma bestaat uit 3 delen die jeder aan elkaar gekoppeld zijn 
via #PFE3, Wen dient dus voor een verdere programma-executie een wille- 
keurige toets in te drukken. Eerst verschijnen, nadat alle vragen zijn 
beantwoord, de moduli van de berekende harmonischen. Daarna worden de 
fasen uitgeprint terwijl vervolgens een grafische voorsteilin, van net 
(amplitude)spectrum op het scherm verschijnt. net opzetten van het sour- 
ce-array kan gebeuren vanaf regel 62 tot regel 9, Gebruik hiervoor BIT 
(I). De nauwkeurigheid wordt in de eerste plaats door de omvang van het 
source-array bepaeld, wellicht kan een andere integratie-methode een 
grotere nauwkeurigheid opleveren (toegepast is de regel van Simpson). 





fiat 





Grafieken. PGRAFTEKEN" EEEKE 
Ik zal in âit artikel proberen duidelijk te raken waaron grafieken zo 
belangrijk zijn in de wiskunde. Vervolgens geef ik een overzicht van ze- 
bruikte termen in de wiskunde, om tenslotte te eindigen met een program 
voor de Acorn, dat grafieken tekent in graphics-mode 4, (PP-RON nodig 
Kaarom grafieken? 

Stel je rijdt in een auto, en om de 5 sec. kijk je op je kmw-telier wat 
je snelheid is. Je resultaten van deze waarnemingen kunner er als volgt 
uitzien: 

tijd/sec snelh.{(km/uur}) 








le) o Snel go 
5 30 ged 
2 EN Kar 
15 45 

20 60 50 
25 15 Ho 
30 15 30 
35 15 20 
40 75 vo 
45 15 

50 15 OE B 0 15 85 doU5 0 55 tijd (sec) 
55 0 


Een tabel is één manier om je gegevens ordelijk op te schrijven. ken 
andere manier om de gegevens zichtbaar te maken is de grafiek, 

Vit de grafiek zijn sneller kenmerken van het rijgedrag te helen dan uit 
de tabel, Bv, zien we in één oogopslag dat in de periode 5-19 sec. de 
snelheid konstant bleef evenals in de periode 25-40 sec. Ook zien we in 
de grafiek heel snel wanneer de auto snelheid verliest, ni. in de periode 
40-45 sec, Maar ook meer delicate zaken, zoals de afstand die de auto na 
bv. 10 sec. heeft afgelegd zijn door een geoefend wiskundige via de zra- 
fiek te ontdekken. Gok de remkracnt, het acceleratievermogern etc. zijn 
in de grafiek verborgen. Dit zijn allemaal voordelen die de grafiek bo- 
ven de tabel neeft, Juist deze punten maken de grafiek erg waardevol. 


We gaan de zaken wat abstracter maken. 


Je norizontale as In de srafiek noemen we de X-aa, omdat hierlangs de 
variabele '{' wordt uitgezet, Dit is het meest gebruikelijke in de wis- 
kunde, Om dezelfde redenen noemen we de verticale as de Y-as. De X-as 
en de Y-as SALEN noemen we het assenstelsel, De:r waar de assen elkaar 
snijden, is de oorsprong, meestal aangeduid met de hoofdletter ©. In 
een tekening: zie tek,1 iet punt P heeft als coördinaten (x,y), wat 
zoiets betekent als 'x' naar rechts en 'y' naar boven. wiskundiger 
Plx,y). 

Om even terug te komen op ons voorbeeld:- de tijdas wordt de X-as, en 
de tijd wordt 'x'; - ue snelheidsas wordt de Y-as, en de snelneid wordt 
'y'‚-Punt Q heeft als coördinaten (15,45): 8(15,45). In een grafiek is 
net altijd zo, dat er een bep. verband bestaat tussen de x- en de y- 
waarden. In ons voorbeeid; De snelheid is 'y' km/uur na 'x’ sec, Dit 
verband noemen we in ge wiskunde een relatie, dus y staat in reletie 
met x, De wiskundige notatie: yRx. ken andere relatie tussen » en x is 
de volgende: y=x+3 dus als x=1 dan y=4, als x=-3 dan y=0, enz. Dit 
verband is weer grafisch weer te geven, zie fig.2. 











Een vraag als we een grafiek gaan tekenen is, welk gedeelte van de gra- 
fiek willen we zien? Zie fis.3. MN.a.w. als we het gebied tussen de dik- 
ke strepen willen zien, moeten we xj en x2 weten, Dit gebied tussen x1 
en x2 noemen we het domein. Bij een gegeven domein horen de noùige y- 
waarden. In ons vb, is het domein van O tot 55 (sec). De y-waarden zijn 
dan min, CG en max, 75 (km/uur). Dit gebied van O9 tot 75 noenen we het 
bereik van de grafiek, Zie tek.3. 

Loor wat te oefenen met bovenstaande begrijpen zuit u ze weldra kunnen 
gebruiken is het programa. 

Yourdat u het programma zgaat ‘runzen' moet ik eerst iets vertellen over 
een bijzondere relatie: de functie. úst is een functie? ken functie is 
een relatie waarbij aan elke x-waarde hooguit één y-waarde wordt gekop- 
peld. Onderstaande grafieken zijn functies. 


NN 


Want er is geen één : waarbij meer als één y hoort, Onderstaande figu- 


ren zijn geen functies, | 


Nu bent u zover dat u het programma kunt gebruiken. Het programma geeft 
informtie welk domein u het laatst hebt gebruikt, welk bereik u het 

laatst heeft gebruikt en of u ja dan nee een andere functie wilt invoe- 
ren, Verder wordt de noogte van het scherm gelijk gesteld aan het opge- 
geven bereik en de hreedte van het scherm wordt gelijk gesteld aan het 
opgegeven domei 
Enkele grafiek 












„ mee te beginnen: 





Werk domein „1 vct 10 YY=kK. HX domerr 10 tot 10 
bereik oli to 1u bereik U tot 100 (grafiek past net} 
of bereik -10 tot +10 (mooier) 





„2 domein =H vor 10 BY=SIN(HX) domein -2.PI tot 2.PI 
bereik -1: „at 10 bereik -1 tot 1 (grafiek past net) 
of bereik -1,2 tot 1,2 (mooier) 
Je ziet, het berei “ne je beter iets ruime” ongeven, om zodoende een 








mooier plaatje te Frijgen. det program Nn ZELIT OOK Hei Bfrean uitre- 

kenen, als u dat zelf niet zo vlug kunt. Toets dan een Kereik van 1 tat 

1 in, en het programra zorgt dan dat de graflek keurig in net beelo 

blijft en nergens de baven- of onderkant van nét scherm raakt, 

Achteraf (na Am) zegt het programma ook nog wat voor bereik aij zelf 

had uitgerekend, Probeer bv. eens: 

BY(BKAT) (HKH (AX-5).EX domein van -b tot 6 bereik van 1 tot 1 
Antoin Reijnen. 

Voor de eerste keer: type dan op vraag 270 JA en op vraag 240 (bv) 

EDOBY-LX dan komt vraag dTO'nogaaals, type dan Uzi. 





far y-as Pig: 





Grafieken 2. KEEEEL 
Van A‚van Wiingaarden kwam een reactie op gratieken var Asa@ijnen. zij 
vand het jammert dat je 2 keer moest runnen. Soar hem werd dec volsende 
veranderd of toegevoegd: 





1 Z=CH"b";T=TOP;DO PT-1;U.2T=13 AND TPZ=d zoek funktie regel 

2 +43 IN. "functie"$Z $L wordt functie regel 
JP.Y=(44L.Z) PD (2458); YJ iN, de rest na ge funktie 
20ODEY =ÁX de rest spaties spaties 
210 Re 


Hij zet dus string 5 direkt acnter regelnr.25bo & wordt aus pen Tunctie- 
string. kegel 1 zoals eerst la-t hij dus weg. 
De funktie BY=1/%L geeft een EKROR, daarom het volgenae 








4 DINB15;8B="G,w" Faurstran- 

5 M6-B;717=B/05b gezet 

130 BXA; Ted G geeft aan waarin Tout 
1J1eDÒ 

12 GOS.D;ELOD 5 WASDSe EE) ALNI/DTHEF) 

1SAakK=BA Tel taut zit ergeas anders 
151gGOS .b;f YH AT 1 =0 Dour weer ergens anders 
152fD0 

153 GOS.b 

191 G‚d 

250WEX-EK-ES zet BA eentje verder 

290 IF Tzû G.f je ziet aan T waarteen terug sprin- 
300 IF T=l 0.2 ger 
A1 Gee 7 
En het volgende: SOJCLEAR 4 en regel Tu niet afsluiten met GOS5.a 


maar met Ga 


genden en ontvangen 


Afstandsberekening. PAFSTANDS Bkk." zEEEKER 
Dit programma berekent de afstand in kilometers tussen twee plaatsen 

opn de aarde, welke worden aangeduid met de, door zeldamateurs, gebruikte 
QPH-locator, Toelichting op dit programma, van J.d.5choon: 

Joor bij de vraag naar de TH-locator van het tegenstation RETURN te 
Zeven, wordt het programma beeindigd. 


MORSE encoder/decoder. zr 
Door Kuipers uit Amstelveen werd ein interface (schema +program) inge- 
stuurd dat werkt, maar voor verbetering vatbaar is, knelpunten bij al 
dergelijke interfaces is de gevoeligheid van de ‘fading! en voor sto- 
ringen, Dit schema, bewerkt voor de Atom, is naar een oorspronkelijk 
ontwerp van Immerzeel (Kadio Bulletin 7-1979). Het programma staat op 
een bandje in het bandjes-archief. 


KITY, EEX 
“enalve WORSL-signalen, kun je ook andere gegevens uit de lucht plukken 
en via de Acorn gedecodeerd over het scherm laten rollen. Ao ook met 

PE . Telex maakt echter geen gebruik van de Worse-code in ‘lang' ‘kort! 
‘nauze' (.- is bv, a) maar van de zgn. ‘Nurray-codering'. Alle karaktere 
bestaan uit S evenlange elementen tie elk ‘noog' of ‘laag’ kunnen zijn. 
Bij telex per lijn is dan 'hoog': er loopt gen stroom, 'laag': geen 
stroom, Bij Radio-TTY verschillen hoog en laag in de toonhoogte van het 
signaal in het audio-gebied. ken gebruikt de frequenties 2125 Herz en 
2295 derz. Zo gecodeerd wordt een a hhlll De karakters worden vooraf- 
gegaan en gevolgd door start en stopteken, het zgn. 'start-bit' en 
‘nark', Verder is er nog een 'cijfershift' anders kom je wet 5 elementen 
{= 32 tekens max.) niet uit. Het program werd ingezonden door: Jaap v/d 
Woestijne. De listing staat op het zelfde bandje als voor de Morse, het 
schema is overgenomen uit Punkschau 3/1961, 





Beschrijving PAX-decoder. KEXEERREE 
FAX is een afkorting van FACSIMILE, wat reproduktie van prenten betekent. 
In de telecommunicatie wordt facsimile aangeduid met code F4, het is dus 
een vorm van frequentie modulatie, Facsimile wordt door sommige korte- 
golf stations gebruikt om weerkaarten voor de scheepvaart uit te zenden, 
Op de schepen bevindt zich een speciale FAX-ontvanger. Het systeem be- 
rust net als TY op het lijn voor lijn aftasten van de tekening. De 
lichte en donkere delen zorgen voor de frequentie verschuiving. 400 Hz 
naar boven is wit, 400 Hz naar beneden is zwart. Omdat bij weerkaarten 
alleen sprake is van wit of zwart, kan het signaal digitaal verwerkt 
worden, Deze weerkaarten moeten niet verward worden met satelliet foto's. 
Ze bevatten gegevens over luchtdruk verdeling, ligging van fronten, 
hoogte van de golven van de zee enz. 

Interface: 

Om de frequentie verschuivingen om te zetten in 0 en 1 is een interface 
nodig. Hiervoor is een IC TBA120 toegepast, dit is een fasedecoder. Het 
is de bedoeling dat de kortegolf ontvanger d‚u.v. de HPO een fluittoon 
produceert, deze toon zal hoger of lager worden als de zender in fre- 
quentie wordt gemoduleerd, Die variaties worden faseverschillen als een 
LC-kring in resonantie wordt gebracnt. Deze faseverschillen worden door 
de TRAI20 zedetecteerd. De output bevat ook de dubbele ingangs frequentie 
Die wordt verwijderd met een dubbel RC-filter, Dan volgt een opamp bv. 
147 of 1LF356, die geschakeld is als comperator. Het signaal gaat dan als 


Versterker Filter Gelijkrichter sch.tr. 12-15 V 








Schema van de MORSE-decoder 


AUX of. 


ks (258) our PB} (6522) 


AN214 
of 1N4148 





Sehema voor de PAX-decoder 


DY of 5V naar de computer. Deze moet dan in het juiste tempo witte of 
zwarte punten op het scherm zetten, Bovendien moet op het juiste moment 
op een nieuwe lijn begonnen worden, Als het scher val is kan met het 
programma GOUNP van A„Toorman het plaatje op de printer afgedrukt wor- 
den. Toelichting bij net schema zelf: 

L} vormt samen met C1 een resonantie kring van ca. 2000 Hz, bv. Amroh 
F4. Bij een andere spoel eventueel C1 aanpassen. De ingang komt aan de 
bandrecorder uitgang van de ontvanger. De uitgang komt aan pootje 7 van 
de DIN connector van de Acorn Atom. 

Froblemen: 

Het oplossend vermogen hangt af van het aantal beeldpunten per mm (hor) 
en het aantal lijnen per mm (vert). Het benodigde geheugen hangt af van 
het aantal beeldpunten per lijn en het aantal lijnen per tekening. Om 
te kunnen zien of alles goed gaat moet alles zich af spelen in het ge- 
bied #800G tot #9890. dierin passen 192 lijnen met 256 punten. PAX- 
zenders leveren meistaì 120 lijnen per min. Het scherm is dus in 1,5 
nin. vol. Ken uitzending duurt vaak wel 15 win, of 1800 lijnen. Dit 
Boet vermoeden dat horizontaal toen ook minstens 500 tot 1000 punten 
nodig zullen zijn. Dat klopt dan ook want als we een lijn op een lijn 
afbeelden krijgen we een zijdelings sterk samengedrukt plaatje op het 
scherm. Door nu bij het printen elk punt 2x af te drukken wordt het 
plastje in de breedte uitgerekt. Het grappige is nu dat ondanks dat we 
schandelijk hebben gesnoeid in detail weergave er toch zo nu en dan een 
oed nerkenhaar plaatje ontstaat. 

ijst van FAX-zenders: 

Groot Brittanie: Bracknell 

roepletters frequentie uitzendtijdent GM) 










GFA2T 3259. 5 6900-2409 
GPA22 4610 " 
GFA23 6040 " 
GFA24 119865 hd 
GFA25 14536 hd 
GEK25 2615,5 3900-0500 
GPE21 4782 0900-2400 
aFE22 9203 hi 
GEE23 14436 hid 
GFE24 18261 0500-1900 


W‚Duitslaná: Hamburg/quickborn/Pinneberg 

roepletters frequentie uitzendtijden(GM?) 

DECTOLS 3695,6 0905, O9tHz, 0931k, O94EE, 1002, 1020, 1555, 
VI2b, 2108, 2133, 2145, 2200, 2226, 2250 h 
x: niet op zon- en feestdagen 

DGN62H6 136271 zie hier boven 


zelf (H.kuiper uit Amstelveen) heb ik geexperimenteerd met 4752, 5040 
en 9203 kHz, Hierop worden enkele kaarten per uur uitgezonden, zodat 
er altijd wel wat te ontvangen is. 

Het bijbehorende programma staat weer op het zelfde bandje als MORSE 
en RTTY, zie bandjes-archief, 


q7 


